OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
T. Khovanova, Turning Numbers Inside Out [From Tanya Khovanova, Jul 07 2009]
MATHEMATICA
reversepower[{n_, k_}] := FromDigits[Reverse[IntegerDigits[n]]]^k; f[n_] := FromDigits[Reverse[IntegerDigits[Times @@ Map[reversepower, FactorInteger[n]]]]]; Select[Range[600], f[#] == # && ! PrimeQ[#] &]
PROG
(Haskell)
a161600 n = a161600_list !! (n-1)
a161600_list = filter ((== 0) . a010051) a161597_list
-- Reinhard Zumkeller, Oct 14 2011
(PARI) is(n)=!isprime(n)&&n==A161594(n) \\ M. F. Hasler, May 11 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
J. H. Conway & Tanya Khovanova, Jun 14 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jun 23 2009
Offset corrected by Reinhard Zumkeller, Oct 14 2011
Minor edits and more displayed terms from M. F. Hasler, May 11 2015
STATUS
approved