|
%I #17 Dec 02 2014 03:01:32
%S 236,3515,5735,71177,1113143,1317221,1719323,1923437,2329667,2931899,
%T 31371147,37411517,41431763,43472021,47532491,53593127,59613599,
%U 61674087,67714757,71735183,73795767,79836557,83897387
%N Numbers formed by concatenating two successive primes and their product.
%H Michael De Vlieger, <a href="/A247475/b247475.txt">Table of n, a(n) for n = 1..10000</a>
%e For n=1 the successive primes are 2 and 3, so the number formed is 236.
%t a247475[n_Integer] := Module[{p}, p := Prime /@ List[n, n + 1];
%t FromDigits@Flatten@Join[IntegerDigits[p], IntegerDigits[Times @@ p]]]; a247475/@Range[120] (* _Michael De Vlieger_, Dec 01 2014 *)
%K nonn,base
%O 1,1
%A _Jennifer Jin_, Nov 30 2014
|
