OFFSET
0,3
FORMULA
MATHEMATICA
Select[Range[0, 1800], OddQ[Sqrt[1+8 IntegerLength[#!]]]&] (* Harvey P. Dale, Aug 07 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jun 16 2004
STATUS
approved