OFFSET
1,2
COMMENTS
Any additional terms have an exponent of at least 10^5.
MATHEMATICA
Select[4^Range[0, 100000], Not[MemberQ[IntegerDigits[#], 4]]&]
Select[4^Range[0, 500], DigitCount[#, 10, 4]==0&] (* Harvey P. Dale, Sep 25 2025 *)
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Erich Friedman, Nov 30 2024
STATUS
approved
