[seqfan] A133481

[Harvey P. Dale]

            Here is a Mma program that implements the definition of this
sequence:

 

kdn[n_]:=Module[{k=2},While[!Divisible[k!,k^n],k++];k];

Join[{1},Array[kdn,60,2]]

 

It generates terms, however, that are quite different from those in the
OEIS.  I have manually checked several of the terms generated by the
above program that differ from the published terms, and the generated
terms are accurate (so the published terms appear to be erroneous).

 

            Tony Noe, however, has created a b-file for the sequence so
I'm concerned that I'm probably wrong, somehow, in my understanding of
the definition of the sequence.

 

            Best,

            Harvey