cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A071260 Integer part of the geometric mean of the n-th prime prime(n) and the n-th composite number C(n).

This page as a plain text file.
%I A071260 #9 Aug 12 2016 18:23:01
%S A071260 2,4,6,7,10,12,15,16,19,22,24,27,30,32,34,37,39,41,44,47,49,51,53,56,
%T A071260 60,62,64,67,69,71,76,79,81,83,87,88,92,94,96,99,101,104,108,110,112,
%U A071260 113,118,123,125,126,129,132,134,138,140,143,146,148,150,153,155,158
%N A071260 Integer part of the geometric mean of the n-th prime prime(n) and the n-th composite number C(n).
%H A071260 Harvey P. Dale, <a href="/A071260/b071260.txt">Table of n, a(n) for n = 0..1000</a>
%F A071260 Floor [ {prime(n)* C(n)}^(1/2)]
%e A071260 a(7) =floor {prime(7)*C(7)}^(1/2) = (17*14)^1/2 = 15.
%t A071260 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 *)
%Y A071260 Cf. A071259.
%K A071260 nonn
%O A071260 0,1
%A A071260 _Amarnath Murthy_, May 30 2002
%E A071260 More terms from _Hans Havermann_, Sep 23 2002