|
| |
|
|
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;
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 !! (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, Jun 14 2009
|
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane, Jun 23 2009
Offset corrected by Reinhard Zumkeller, Oct 14 2011
|
|
|
STATUS
|
approved
|
| |
|
|
