OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
The first 6 terms are:
n a(n) a(n) in factorial base 1/a(n) in factorial base sum of digits
- ---- ---------------------- ------------------------ -------------
1 1 1 1 1
2 2 10 0.01 1
3 3 11 0.002 2
4 6 100 0.001 1
5 12 200 0.0002 2
6 15 211 0.00013 4
MATHEMATICA
Select[Range[1000], Total@ NumberDecompose[#, Reverse@Range[#]!] == Total@ NumberDecompose[1/#, 1/Range[#]!] &]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, May 23 2024
STATUS
approved