

A161600


Nonprime numbers such that TITO(n) = n, where TITO(n) = A161594(n).


8



1, 4, 6, 8, 9, 22, 26, 33, 39, 44, 46, 55, 62, 66, 69, 77, 82, 86, 88, 93, 99, 121, 143, 169, 187, 202, 206, 226, 242, 252, 253, 262, 286, 299, 303, 309, 339, 341, 343, 363, 393, 404, 422, 446, 451, 466, 473, 482, 484, 505, 525, 583, 606, 616, 622, 626, 633, 662, 669, 671, 682, 686
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 !! (n1)
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

Cf. A010051, A161594; subsequence of A161597.
Sequence in context: A121719 A267509 A162738 * A032350 A078337 A046351
Adjacent sequences: A161597 A161598 A161599 * A161601 A161602 A161603


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



