list 10 for Q=0 to 10000000 20 P2=28*Q*Q+1 30 P=int(sqrt(P2)+0.5) 40 if P*P=P2 then 50 :Perfsq=2*P+2 60 :Sr=sqrt(Perfsq) 70 :print Q;P,Perfsq;Sr 80 nextOK
Q P 2P+2 Sqrt(2P+2) 0 1 4 2.0 24 127 256 16.0 6096 32257 64516 254.0 1548360 8193151 16386304 4048.0
Every entry in column 3 is a perfect square, giving some credibility to the assertion, but not even a statistical proof.
blackjack
flooble's webmaster puzzle