OFFSET
1,2
COMMENTS
TITO(p) = p, for any prime p.
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[200], f[ # ] == # &]
PROG
(Haskell)
a161597 n = a161597_list !! (n-1)
a161597_list = filter (\x -> a161594 x == x) [1..]
-- Reinhard Zumkeller, Oct 14 2011
(PARI) is(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
STATUS
approved