%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