|
%I #7 Dec 15 2017 17:37:02
%S 10,1,3,3,3,29,1,3,3,11,9,7,23,61,11,3,91,137,7,11,31,93,17,9,273,51,
%T 397,9,99,41,111,129,111,801,109,131,297,37,621,21,807,143,87,57,231,
%U 187,53,169,77,613,867,41,199,773,523,227,27,499,171,329,67,483,393,179
%N a(1) = 10; a(n) = smallest number such that the juxtaposition a(1)a(2)...a(n) is a prime.
%t a[1] = 10; a[n_] := a[n] = Block[{k = 1, c = IntegerDigits @ Table[ a[i], {i, n - 1}]}, While[ !PrimeQ[ FromDigits @ Flatten @ Append[c, IntegerDigits[k]]], k += 2]; k]; Table[ a[n], {n, 63}]
%Y Cf. A111524, A074346, A092528, A069603, A069605, A069606, A069607, A069608, A069609, A069610, A069611, A111525.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, _Jason Earls_ and _Robert G. Wilson v_, Aug 05 2005
|
