|
|
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
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Minor edits and more displayed terms from M. F. Hasler, May 11 2015
|
|
STATUS
|
approved
|
|
|
|