|
|
A169829
|
|
Palindromes that are a product of consecutive primes.
|
|
3
|
|
|
1, 2, 3, 5, 6, 7, 11, 77, 101, 131, 151, 181, 191, 313, 323, 353, 373, 383, 727, 757, 787, 797, 919, 929, 1001, 5005, 10301, 10501, 10601, 11311, 11411, 12421, 12721, 12821, 13331, 13831, 13931, 14341, 14741, 15451, 15551, 16061, 16361, 16561, 16661
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
323 = 17*19.
|
|
MATHEMATICA
|
f[n_] := Select[ FoldList[ Times, 1, Prime[ Range[n, n + 4]]], # == FromDigits@ Reverse@ IntegerDigits@# &]; k = 1; lst = {}; While[k < 10^4, AppendTo[lst, f@k]; k++ ]; lst = Union@ Flatten@ lst (* Robert G. Wilson v, Jun 10 2010 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|