A181730 Fixed points in A100208.
1, 2, 3, 5, 25, 33, 41, 60, 61, 64, 66, 72, 88, 129, 203, 212, 299, 313, 330, 380, 419, 442, 463, 480, 487, 517, 533, 560, 589, 603, 607, 633, 646, 649, 657, 658, 689, 703, 759, 776, 782, 791, 807, 814, 843, 853, 874, 907, 922, 953, 1034, 1075, 1127, 1140, 1143, 1149, 1156, 1232, 1237, 1243, 1270, 1288, 1339, 1341, 1395, 1409, 1518, 1525
Offset: 1
Keywords
Crossrefs
Cf. A100208.
Programs
-
PARI
print1(1,", ");v=[1]; k=1; while(#v<=10^3, if(isprime(k^2+v[#v]^2)&&!vecsearch(vecsort(v), k), v=concat(v, k); if(k==#v, print1(k, ", ")); k=0); k++); \\ Derek Orr, Jun 08 2015
Comments