OFFSET
1,2
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A376857Q[k_] := k == Times @@ (IntegerReverse[#1, 2]^#2 & @@@ FactorInteger[k]);
Select[Range[1000], A376857Q]
PROG
(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
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo Xausa, Oct 07 2024
STATUS
approved