0,2

Table of n, a(n) for n=0..42.

a(5) = 35 (one of the few composites in this sequence) because 35 is the least number such that 35!/36^7 and 23!/24^6.

l = 0; Do[k = Max[l - 1, 1]; While[ !IntegerQ[ k! / (k + 1)^n], k++ ]; If[ k > l, l = k; Print[k] ], {n, 0, 1500} ]

Sequence in context: A295149 A143127 A235386 * A169744 A190148 A281875

Adjacent sequences: A061766 A061767 A061768 * A061770 A061771 A061772

nonn

Robert G. Wilson v, Jun 21 2001

approved