login
Least palindrome which is the product of n consecutive primes.
0

%I #2 Mar 30 2012 17:31:29

%S 1,2,6,1001,5005,323323

%N Least palindrome which is the product of n consecutive primes.

%C A proper subset of A169829.

%C The next term must exceed the product of 6 primes whose prime index is at least 125000000.

%F a(3) = 1001 = 7*11*13,

%F a(4) = 5005 = 5*7*11*13,

%F a(5) = 323323 = 7*11*13*17*19.

%t fQ[k_, n_] := Block[{j = Fold[ Times, 1, Prime[Range[k, k + n]]]}, j == FromDigits@ Reverse@ IntegerDigits@ j]; lst = {}; Do[k = 1; While[ ! fQ[k, n], k++ ]; Print[{n + 1, Fold[Times, 1, Prime[Range[k, k + n]]]}], {n, -1, 4}]

%K base,nonn

%O 0,2

%A _Robert G. Wilson v_, Jun 11 2010