%I #8 Mar 30 2012 17:34:21
%S 3,15,24,48,72,120,168,264,552,696,744,888,984,1032,1128,1272,1416,
%T 1464,1608,1704,1752,1896,1992,2136,2328
%N The first 8 values are predefined, the remaining set to a(n) =24*prime(n).
%C The motivation for these two sequences is that the order-168 Kleinian n=7 group seems to demand a non-Euclidean E9 type of manifold and my work in cosmology led me to think in terms of an E10 exceptional group.
%F Limit[A129025[[n]/A129024[[n],n->Infinity]=2
%t b0 = {3, 15, 24, 48, 72, 120, 168, 264}
%t b = Table[If[n <= 8, b0[[n]], Prime[n]*24], {n, 1, 25}]
%Y Cf. A129025.
%K nonn,less
%O 1,1
%A _Roger L. Bagula_, May 06 2007
|