OFFSET
1,2
COMMENTS
Positions of 0 in A277674.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
EXAMPLE
(See A277674.)
MATHEMATICA
d = Differences@Array[Floor@Log[#, #!] &, 10000, 2]; (* Robert G. Wilson v, Oct 27 2016 *)
u = Flatten[Position[d, 0]]; (* A277675 *)
v = Flatten[Position[d, 1]]; (* A277676 *)
SequencePosition[Table[IntegerLength[n!, n], {n, 2, 350}], {x_, x_}][[All, 1]] (* Harvey P. Dale, Aug 21 2022 *)
PROG
(PARI) d(n) = #digits(n!, n);
isok(n) = d(n+2) == d(n+1); \\ Michel Marcus, Oct 29 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Clark Kimberling, Oct 26 2016
STATUS
approved