login
A117925
Fixed points of A055265, A117922, A117923 and A117924.
5
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, 111, 116, 120, 137, 143, 149, 156, 159, 166, 168, 169, 173, 186, 200, 201, 204, 206, 212, 218, 226, 234, 237, 253, 263, 266, 269, 273, 274, 277, 282, 284, 285, 286, 288
OFFSET
1,2
COMMENTS
a(n) = A055265(a(n)) = A117922(a(n)) = A117923(a(n)) = A117924(a(n)).
PROG
(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]
n=1; while(n<1000, if(a(n)==n, print1(n, ", ")); n++) \\ Derek Orr, Jun 08 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 03 2006
STATUS
approved