|
%I #12 Dec 15 2023 14:38:08
%S 3,31,311,3119,31193,3119309,31193093,311930933,31193093317,
%T 311930933179,3119309331797,311930933179703,31193093317970371,
%U 3119309331797037107,311930933179703710759,31193093317970371075907
%N a(n+1) is the next smallest prime beginning with a(n), initial prime is 3.
%H Robert Israel, <a href="/A048550/b048550.txt">Table of n, a(n) for n = 0..328</a>
%p f:= proc(n) local d,a;
%p for d from 1 do
%p for a from 10^d*n+1 by 2 to 10^d*(n+1) do
%p if isprime(a) then return a fi
%p od od
%p end proc:
%p R:= 3: x:= 3:
%p for i from 2 to 30 do
%p x:= f(x);
%p R:= R, x;
%p od:
%p R; # _Robert Israel_, Dec 13 2023
%Y Cf. A048549, A048551, A048552, A048553, A048554, A048555, A048556.
%K nonn,base
%O 0,1
%A _Patrick De Geest_, May 15 1999
|
