login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
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
Cf. A010051, A161594; subsequence of A161597.
Sequence in context: A267509 A162738 A366826 * A032350 A078337 A046351
KEYWORD
nonn,base
AUTHOR
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 21:02 EDT 2024. Contains 370951 sequences. (Running on oeis4.)