|
%I #16 Jun 09 2015 12:28:28
%S 1,2,3,5,25,33,41,60,61,64,66,72,88,129,203,212,299,313,330,380,419,
%T 442,463,480,487,517,533,560,589,603,607,633,646,649,657,658,689,703,
%U 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
%N Fixed points in A100208.
%C Numbers n with property that A100208(n)=n.
%C There are 677 fixed points among first 20000 terms of A100208.
%o (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
%Y Cf. A100208.
%K nonn
%O 1,2
%A _Zak Seidov_, Nov 16 2010
|
