OFFSET
1,2
COMMENTS
Computed by Jean-Marc Falcoz.
From a(116)=6100011 on, there starts a pattern of 75 terms which then repeats indefinitely (with duplication of a substring of 5 digits in the middle of each term). - 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) A152605(n, show_all=0, s=[1, 2, 3, 4, 7, 12, 30, 51, 83, 231, 232, 312, 323, 327, 413, 414, 530, 541, 701, 811, 812, 1101])={ my(a); for(i=1, n, if(i<=#s, a=s[i], my(ld=a%10^4); while(a++, my(t=a+ld*10^#Str(a)); forstep(d=#Str(a)-1, 0, -1, isprime(sum(j=d, d+4, 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