A065067 First differences of A065027.

1, 2, 3, 2, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 2, 3, 3

Offset

0,2

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

Formula

a(n) = A065027(n+1) - A065027(n).

Mathematica

f[1] = 2; f[n_] := f[n] = Block[{k = f[n - 1]}, While[k! <= n^k, k++ ]; k]; t = Table[ f[n], {n, 1, 110}]; Drop[t, 1] - Drop[t, -1]
sm0[n_]:=Module[{m=1}, While[n^m>=m!, m++]; m]; Differences[Array[sm0, 120]] (* Harvey P. Dale, Jan 24 2018 *)

Prog

(PARI) { m=1; p=2; for (n=1, 1000, until ((n + 1)^m < m!, m++); a=m - p; p=m; write("b065067.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 05 2009

Crossrefs

Cf. A065027.

Sequence in context: A074070 A304097 A251101 * A086411 A105528 A076225

Adjacent sequences: A065064 A065065 A065066 * A065068 A065069 A065070

Keyword

nonn

Author

Floor van Lamoen, Nov 07 2001

Extensions

More terms from Robert G. Wilson v, Jul 12 2003

a(0)=1 prepended by Alois P. Heinz, Dec 21 2019

Status

approved