OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[2, 400], IntegerDigits[#!, #][[1]]==1&] (* Harvey P. Dale, Aug 14 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 25 2013
EXTENSIONS
More terms from Alois P. Heinz, Jan 28 2013
STATUS
approved