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

Author

Benoit Cloitre, Mar 22 2004

Keywords

• nonn

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

Crossrefs

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

Programs

Mathematica

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

PARI

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

Formula

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

Extensions

Name edited by Derek Orr, Apr 16 2015