A376857 Fixed points of A162742.
1, 3, 5, 7, 9, 15, 17, 21, 25, 27, 31, 35, 45, 49, 51, 63, 73, 75, 81, 85, 93, 105, 107, 119, 125, 127, 135, 143, 147, 153, 155, 175, 189, 217, 219, 225, 243, 245, 255, 257, 279, 289, 313, 315, 321, 343, 357, 365, 375, 381, 405, 425, 429, 441, 443, 459, 465, 511, 525, 527, 535
Offset: 1
Links
- Paolo Xausa, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
A376857Q[k_] := k == Times @@ (IntegerReverse[#1, 2]^#2 & @@@ FactorInteger[k]); Select[Range[1000], A376857Q]
-
Python
# uses function, imports in A162742 def ok(n): return n > 0 and n == A162742(n) print([k for k in range(536) if ok(k)]) # Michael S. Branicky, Oct 07 2024
Comments