A092427 Least k > 1 such that k^n divides (k-1)!.

2, 6, 12, 12, 12, 24, 24, 36, 40, 45, 48, 60, 60, 60, 72, 72, 72, 80, 80, 90, 90, 120, 120, 120, 120, 120, 120, 120, 144, 144, 144, 144, 144, 144, 144, 180, 180, 180, 180, 180, 180, 180, 180, 180, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240

Offset

0,1

Comments

Is 45 the only odd number in this sequence? - Derek Orr, Apr 16 2015

Links

Michael De Vlieger, Table of n, a(n) for n = 0..1000

Formula

Does lim_{n->oo} a(n)/n exist?

Mathematica

Table[k = 2; While[Mod[(k - 1)!, k^n] != 0, k++]; k, {n, 0, 60}] (* Michael De Vlieger, Apr 16 2015 *)

Prog

(PARI) a(n)=if(n<0, 0, k=2; while((k-1)!%(k^n)>0, k++); k)

Crossrefs

A061770 gives values of n such that a(n) > a(n-1).

Sequence in context: A278232 A074385 A057340 * A058198 A096075 A278256

Adjacent sequences: A092424 A092425 A092426 * A092428 A092429 A092430

Keyword

nonn

Author

Benoit Cloitre, Mar 22 2004

Extensions

Name edited by Derek Orr, Apr 16 2015

Status

approved