|
| |
|
|
A161600
|
|
Nonprime numbers such that TITO(n) = n, where TITO(n) = A161594(n).
|
|
7
| |
|
|
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
(list; graph; refs; listen; history; 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 (tanyakh(AT)yahoo.com), 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
|
|
|
CROSSREFS
| a010051; subsequence of A161597.
Sequence in context: A024370 A121719 A162738 * A032350 A078337 A046351
Adjacent sequences: A161597 A161598 A161599 * A161601 A161602 A161603
|
|
|
KEYWORD
| nonn,base,more
|
|
|
AUTHOR
| J. H. Conway & Tanya Khovanova (tanyakh(AT)yahoo.com), Jun 14 2009
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane, Jun 23 2009
Offset corected by Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 14 2011
|
| |
|
|
