[go: up one dir, main page]

login
A077501
a(n) = smallest prime greater than a(n-1) and beginning with n.
3
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.
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
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 08 2002
EXTENSIONS
Corrected and extended by Ray Chandler, Aug 11 2003
STATUS
approved