OFFSET
0,2
REFERENCES
J.-P. Delahaye, Merveilleux nombres premiers ("Amazing primes"), p. 315, Pour la Science, Paris 2000.
EXAMPLE
a(4) = 858 = 2*3*11*13.
MATHEMATICA
r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; Do[k = 1; While[r[k] != k || !SquareFreeQ[k] || Length[Select[Divisors[k], PrimeQ]] != n, k++ ]; Print[k], {n, 0, 30}] (* Ryan Propper, Sep 16 2005 *)
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Edited by N. J. A. Sloane, Dec 06 2008 at the suggestion of R. J. Mathar
a(10)-a(13) from Donovan Johnson, Oct 03 2011
a(14)-a(15) from David A. Corneth, Oct 03 2020
a(15) corrected by Daniel Suteu, Feb 05 2023
a(16) from Michael S. Branicky, Feb 08 2023
STATUS
approved