%I #12 Aug 13 2020 14:02:28
%S 1,2,3,5,6,7,11,77,101,131,151,181,191,313,323,353,373,383,727,757,
%T 787,797,919,929,1001,5005,10301,10501,10601,11311,11411,12421,12721,
%U 12821,13331,13831,13931,14341,14741,15451,15551,16061,16361,16561,16661
%N Palindromes that are a product of consecutive primes.
%C Intersection of A002113 and A073485. - _Reinhard Zumkeller_, May 31 2010
%H Donovan Johnson, <a href="/A169829/b169829.txt">Table of n, a(n) for n = 1..5000</a>
%H Erich Friedman, <a href="https://erich-friedman.github.io/numbers.html">What's Special About This Number?</a> (See entry 1001.)
%e 323 = 17*19.
%t 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 *)
%Y Cf. A002113.
%K nonn,base
%O 1,2
%A _N. J. A. Sloane_, May 30 2010
%E More terms from _Robert G. Wilson v_ and _Jon E. Schoenfield_, Jun 10 2010