This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181730 #16 Jun 09 2015 12:28:28 %S A181730 1,2,3,5,25,33,41,60,61,64,66,72,88,129,203,212,299,313,330,380,419, %T A181730 442,463,480,487,517,533,560,589,603,607,633,646,649,657,658,689,703, %U A181730 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 A181730 Fixed points in A100208. %C A181730 Numbers n with property that A100208(n)=n. %C A181730 There are 677 fixed points among first 20000 terms of A100208. %o A181730 (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 A181730 Cf. A100208. %K A181730 nonn %O A181730 1,2 %A A181730 _Zak Seidov_, Nov 16 2010