|
%I #15 Sep 17 2023 01:29:52
%S 11,23,31,41,53,61,71,83,97,101,113,127,131,149,151,163,173,181,191,
%T 2003,2111,2203,2309,2411,2503,2609,2707,2801,2903,3001,3109,3203,
%U 3301,3407,3511,3607,3701,3803,3907,4001,4111,4201,4327,4409,4507,4603,4703
%N a(n) = smallest prime greater than a(n-1) and beginning with n.
%C First 20 terms are the same as that of A030665.
%H Robert Price, <a href="/A077501/b077501.txt">Table of n, a(n) for n = 1..5000</a>
%H <a href="/index/Pri#piden">Index entries for primes involving decimal expansion of n</a>
%t 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 *)
%Y Cf. A030665.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 08 2002
%E Corrected and extended by _Ray Chandler_, Aug 11 2003
|
