list 10 for Tot=0 to 999999 20 for P=0 to Tot 30 Q=Tot-P 40 if P^4+(P+1)^4=Q^2+(Q+1)^2 then 50 :print P;Q,P^4+(P+1)^4 60 next 70 nextOK
finds only
run 0 0 1
by the time I stopped the program while the total of P and Q had reached 230,987:
Break in 50?tot 230987OK
so it looks as if (0,0) is the only pair.
blackjack
flooble's webmaster puzzle