login
Erroneous version of A000040.
0

%I #13 Aug 28 2024 01:15:29

%S 4,6,11,13,17,19,23,28,30,36,41,43,46,53,59,61,67,71,72,79,83,88,97,

%T 101,103,106,108,113,127,130,137,138,149,151,156,163,167,173,178,181,

%U 191,193,197,198,211,223,227,229,232,239,240,250,257,262,268,271,276,280

%N Erroneous version of A000040.

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

%t fa[n_]=(Log[Prime[n]]-Log[n])/Log[n-1]

%t Table[Floor[N[n*(n-1)^fa[n]]], {n, 3, 200}]

%K nonn,dead

%O 3,1

%A _Roger L. Bagula_, May 28 2004