%I #30 Jul 29 2015 13:35:36
%S 235,358,5712,71118,111324,131730,171936,192342,232952,293160,313768,
%T 374178,414384,434790,4753100,5359112,5961120,6167128,6771138,7173144,
%U 7379152,7983162,8389172,8997186,97101198,101103204,103107210,107109216,109113222,113127240
%N Numbers formed by concatenating two successive primes and their sum.
%C After the first term, every term is even.
%H Michael De Vlieger, <a href="/A247474/b247474.txt">Table of n, a(n) for n = 1..10000</a>
%e For n=1 the two successive primes are 2 and 3, 2+3=5. Therefore the number created is 235.
%t a247474[n_Integer] := Module[{p, f}, p := Prime /@ List[n, n + 1]; FromDigits@Flatten@Join[IntegerDigits[p], IntegerDigits[Plus @@ p]]]; a247474/@Range[120] (* _Michael De Vlieger_, Dec 01 2014 *)
%t FromDigits[Join[IntegerDigits[#[[1]]],IntegerDigits[#[[2]]], IntegerDigits[ Total[#]]]]&/@Partition[Prime[Range[40]],2,1] (* _Harvey P. Dale_, Jul 29 2015 *)
%Y Cf. A001043, A045533.
%K nonn,base
%O 1,1
%A _Jennifer Jin_, Nov 30 2014
|