|
%I
%S 1,2,3,4,6,8,9,10,14,18,19,21,23,24,28,33,35,42,50,56,57,62,68,81,82,
%T 111,116,120,137,143,149,156,159,166,168,169,173,186,200,201,204,206,
%U 212,218,226,234,237,253,263,266,269,273,274,277,282,284,285,286,288
%N Fixed points of A055265, A117922, A117923 and A117924.
%C a(n)=A055265(a(n))=A117922(a(n))=A117923(a(n))=A117924(a(n)).
%H T. D. Noe, <a href="/A117925/b117925.txt">Table of n, a(n) for n = 1..1000</a>
%o (PARI) a(n)=v=[1];k=1;while(#v<=n,if(isprime(k+v[#v])&&!vecsearch(vecsort(v),k),v=concat(v,k);k=0);k++);v[#v-1]
%o n=1;while(n<1000,if(a(n)==n,print1(n,", "));n++) \\ _Derek Orr_, Jun 08 2015
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Apr 03 2006
|
