A064735 Next prime containing prime(n) in decimal notation

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

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

Cf. A062584, A030670, A000040, A252629.

Sequence in context: A166526 A070838 A199713 * A104958 A124601 A040508

Adjacent sequences: A064732 A064733 A064734 * A064736 A064737 A064738

Keyword

base,nonn

Author

Reinhard Zumkeller, Oct 17 2001

Status

approved