A094226 Erroneous version of A000040.

4, 6, 11, 13, 17, 19, 23, 28, 30, 36, 41, 43, 46, 53, 59, 61, 67, 71, 72, 79, 83, 88, 97, 101, 103, 106, 108, 113, 127, 130, 137, 138, 149, 151, 156, 163, 167, 173, 178, 181, 191, 193, 197, 198, 211, 223, 227, 229, 232, 239, 240, 250, 257, 262, 268, 271, 276, 280

Offset

3,1

Comments

Original definition: Let s=(log(prime(n))-log(n))/log(n-1), then a(n) = floor(n*(n-1)^s).

Links

Table of n, a(n) for n=3..60.

Mathematica

fa[n_]=(Log[Prime[n]]-Log[n])/Log[n-1]
Table[Floor[N[n*(n-1)^fa[n]]], {n, 3, 200}]

Crossrefs

Sequence in context: A185868 A250125 A190489 * A047288 A287565 A163417

Adjacent sequences: A094223 A094224 A094225 * A094227 A094228 A094229

Keyword

nonn,dead

Author

Roger L. Bagula, May 28 2004

Status

approved