OFFSET
1,3
REFERENCES
Bill Gosper, Posting to Math Fun List, Sep 03 2016
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
esn0Q[n_]:=Module[{z10=Split[IntegerDigits[n!]][[-1]], z16=Split[IntegerDigits[n!, 16]][[-1]]}, MemberQ[z10, 0]&&MemberQ[z16, 0]&&Length[z10]==Length[z16]]; Join[ {0, 1, 2, 3, 4}, Select[Range[0, 120], esn0Q]] (* Harvey P. Dale, Oct 03 2022 *)
PROG
(Python)
A276389_list, m = [0], 1
for n in range(1, 10**3):
m *= n
s, h = str(m), hex(m)
if not len(s)-len(s.rstrip('0'))+len(h.rstrip('0'))-len(h):
A276389_list.append(n) # Chai Wah Wu, Sep 04 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 04 2016
STATUS
approved