login
A064735
Next prime containing prime(n) in decimal notation
3
23, 13, 53, 17, 113, 113, 173, 191, 223, 229, 131, 137, 241, 431, 347, 353, 359, 461, 167, 271, 173, 179, 283, 389, 197, 1013, 1031, 5107, 1091, 2113, 1277, 1319, 1373, 1399, 1493, 1151, 1571, 1163, 3167, 1733, 2179, 1181, 1913, 1193, 1973, 1993, 2111
OFFSET
1,1
LINKS
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