|
%I #17 Sep 14 2018 13:18:51
%S 1,1,3,11,13,29,39,49,83,141,247,273,291,347,373,401,441,567,571,651,
%T 903,957,1001,1129,1401,1457,1467,1561,1889,2083,2169,2523,2717,2743,
%U 3447,3509,3711,4087,4899,4983,5087,5151,5263,5429,5551,6017,7389,7839
%N a(1) = 1; a(n) is smallest number >= a(n-1) such that the juxtaposition a(1)a(2)...a(n) is a prime.
%H Giovanni Resta, <a href="/A033680/b033680.txt">Table of n, a(n) for n = 1..800</a>
%t a[1] = 1; a[n_] := a[n] = Block[{k = a[n - 1], c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 48}] (* _Robert G. Wilson v_ *)
%t nxt[{c_,a_}]:=Module[{x=a},While[!PrimeQ[FromDigits[Join[c,IntegerDigits[ x]]]],x+=2];{Join[c,IntegerDigits[x]],x}]; NestList[nxt,{{1},1},50][[All,2]] (* _Harvey P. Dale_, Sep 14 2018 *)
%Y Cf. A074336, A092528, A069602, A033679, A033681, A046254, A046255, A046256, A046257, A046258, A046259, A111524.
%K nonn,nice
%O 1,3
%A _N. J. A. Sloane_
%E More terms from _Patrick De Geest_, May 15 1998
%E More terms from _Robert G. Wilson v_, Aug 05 2005
|
