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

Author

Amarnath Murthy, Nov 08 2002

Keywords

• base
• easy
• nonn

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

Crossrefs

Cf. A030665.

Programs

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 *)

Extensions

Corrected and extended by Ray Chandler, Aug 11 2003