A169829 Palindromes that are a product of consecutive primes.
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
Offset: 1
Examples
323 = 17*19.
Links
- Donovan Johnson, Table of n, a(n) for n = 1..5000
- Erich Friedman, What's Special About This Number? (See entry 1001.)
Crossrefs
Cf. A002113.
Programs
-
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 *)
Extensions
More terms from Robert G. Wilson v and Jon E. Schoenfield, Jun 10 2010
Comments