OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
FORMULA
Floor [ {prime(n)* C(n)}^(1/2)]
EXAMPLE
a(7) =floor {prime(7)*C(7)}^(1/2) = (17*14)^1/2 = 15.
MATHEMATICA
Module[{nn=100, prs, cmps, len}, prs=Prime[Range[nn]]; cmps=Select[ Range[ nn+Length[prs]], CompositeQ]; len=Min[Length[cmps], Length[prs]]; IntegerPart[ GeometricMean[#]]&/@Thread[{Take[prs, len], Take[ cmps, len]}]] (* Harvey P. Dale, Aug 12 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 30 2002
EXTENSIONS
More terms from Hans Havermann, Sep 23 2002
STATUS
approved