A077501 a(n) = smallest prime greater than a(n-1) and beginning with n.

11, 23, 31, 41, 53, 61, 71, 83, 97, 101, 113, 127, 131, 149, 151, 163, 173, 181, 191, 2003, 2111, 2203, 2309, 2411, 2503, 2609, 2707, 2801, 2903, 3001, 3109, 3203, 3301, 3407, 3511, 3607, 3701, 3803, 3907, 4001, 4111, 4201, 4327, 4409, 4507, 4603, 4703

Offset

1,1

Comments

First 20 terms are the same as that of A030665.

Links

Robert Price, Table of n, a(n) for n = 1..5000

Index entries for primes involving decimal expansion of n

Mathematica

a = {}; Do[AppendTo[a, Function[d, FromDigits@ SelectFirst[ IntegerDigits@ Prime@ Range[PrimePi@ Max@ a + 1, 10^4], And[Length@ # >= Length@ d, Take[#, Length@ d] == d] &]][IntegerDigits@ n]], {n, 47}]; a (* Michael De Vlieger, May 24 2016, Version 10 *)

Crossrefs

Cf. A030665.

Sequence in context: A179630 A060399 A030665 * A337845 A030675 A110786

Adjacent sequences: A077498 A077499 A077500 * A077502 A077503 A077504

Keyword

base,easy,nonn

Author

Amarnath Murthy, Nov 08 2002

Extensions

Corrected and extended by Ray Chandler, Aug 11 2003

Status

approved