A247474 Numbers formed by concatenating two successive primes and their sum.
235, 358, 5712, 71118, 111324, 131730, 171936, 192342, 232952, 293160, 313768, 374178, 414384, 434790, 4753100, 5359112, 5961120, 6167128, 6771138, 7173144, 7379152, 7983162, 8389172, 8997186, 97101198, 101103204, 103107210, 107109216, 109113222, 113127240
Offset: 1
Examples
For n=1 the two successive primes are 2 and 3, 2+3=5. Therefore the number created is 235.
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
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 *) FromDigits[Join[IntegerDigits[#[[1]]],IntegerDigits[#[[2]]], IntegerDigits[ Total[#]]]]&/@Partition[Prime[Range[40]],2,1] (* Harvey P. Dale, Jul 29 2015 *)
Comments