|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|