|
%I #4 Mar 30 2012 17:34:13
%S 1,3,4,5,7,8,10,11,13,14,16,17,18,20,21,23,24,26,27,28,30,31,33,34,35,
%T 37,38,40,41,42,44,45,47,48,49,51,52,54,55,56,58,59,61,62,63,65,66,68,
%U 69,70,72,73,75,76,77,79,80,81,83,84,86,87,88,90,91,92,94,95,97,98,99
%N a(n) =[Floor[Sum[Log[Prime[n+1]]/Log[n+1],{i,1,n}]]
%C Sum of the prime like fractal dimension spectrum.
%C Again this is a sum of fractal dimensions of unique Prime like sets to the nearest topological dimension.
%t f[n_]=Log[Prime[n+1]]/Log[n+1] g[n_]=Sum[f[i], {i, 1, n}] digits=200 a=Table[Floor[g[n]], {n, 1, digits}]
%K nonn
%O 1,2
%A _Roger L. Bagula_, Dec 10 2003
|
