OFFSET
1,2
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..5000
Erich Friedman, What's Special About This Number? (See entry 1001.)
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
N. J. A. Sloane, May 30 2010
EXTENSIONS
More terms from Robert G. Wilson v and Jon E. Schoenfield, Jun 10 2010
STATUS
approved