A158055 - OEIS

%I #7 Mar 23 2020 19:15:18

%S 2,3,7,23,11,7,43,29,17,11,11,13,13,17,17,17,17,19,19,23,41,89,179,29,

%T 53,127,29,59,149,31,97,281,67,199,37,107,37,113,41,157,41,167,43,173,

%U 47,181,47,191,53,251,101,53,263,107,59

%N a(1)=2, a(n+1) is the smallest prime > n*first digit of a(n).

%H Robert Israel, <a href="/A158055/b158055.txt">Table of n, a(n) for n = 1..10000</a>

%p A[1]:= 2:

%p for n from 1 to 99 do  A[n+1]:= nextprime(n*floor(A[n]/10^(ilog10(A[n])))) od:

%p seq(A[i],i=1..100); # _Robert Israel_, Mar 23 2020

%Y Cf. A000027, A000040, A156615.

%K nonn,base,look

%O 1,1

%A _Juri-Stepan Gerasimov_, Mar 12 2009

%E Corrected by _D. S. McNeil_, Mar 21 2009