OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n=1..1000
FORMULA
a(n) = A252629(n) + prime(n). - Zak Seidov, Dec 19 2014
PROG
(PARI) digitsIn(x)= { local(d); if (x==0, return(1)); d=1 + log(x)\log(10); if (10^d == x, d++, if (10^(d-1) > x, d--)); return(d) } XhasY(x, y)= { local(a, b, d, p); a=digitsIn(x); b=digitsIn(y); p=10^b; for (i=0, a-b, d=x%p; if (d==y, return(1)); x\=10; ); return(0) } { for (n = 1, 1000, p=prime(n); q=p; until (XhasY(q, p), q=nextprime(q + 1)); write("b064735.txt", n, " ", q) ) } \\ Harry J. Smith, Sep 24 2009
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, Oct 17 2001
STATUS
approved