OFFSET
1,2
COMMENTS
Computed by Jean-Marc Falcoz.
From a(69)=1100110 onward starts a repeating pattern of length 54. - M. F. Hasler, Oct 16 2009
LINKS
Eric Angelini, Chiffres consecutifs dans quelques suites
E. Angelini, Chiffres consecutifs dans quelques suites [Cached copy, with permission]
PROG
(PARI) A152604(n, show_all=0)={my(a); for(i=1, n, if( i<8, a=i+(i>3)+(i>4), my(l3d=if(a>99, a%1000, [789, 951, 183][i-7])); while( a++, my(t=a+l3d*10^#Str(a)); forstep(d=#Str(a)-1, 0, -1, isprime(sum(j=d, d+3, t\10^j%10)) & next; a+=10^d-a%10^d-1; next(2)); break)); show_all&print1(a", ")); a} \\ M. F. Hasler, Oct 16 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 23 2009
STATUS
approved