OFFSET
1,2
COMMENTS
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
A376858Q[k_] := k == Times @@ (IntegerReverse[#1]^#2 & @@@ FactorInteger[k]);
Select[Range[200], A376858Q]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo Xausa, Oct 07 2024
STATUS
approved