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.

A282511 Numerator of the sum of the reciprocals of the first n nonprimes.

This page as a plain text file.
%I A282511 #29 Dec 15 2017 22:16:59
%S A282511 1,5,17,37,119,631,661,4807,995,2053,703,3599,3679,41309,42079,214091,
%T A282511 2829383,25864847,26250947,26611307,53898289,54553489,938220113,
%U A282511 135531719,136990319,2629070861,2654652461,2679594521,18923442047,19082164247,19237359287
%N A282511 Numerator of the sum of the reciprocals of the first n nonprimes.
%e A282511 The first few fractions are 1, 5/4, 17/12, 37/24, 119/72, 631/360, 661/360, 4807/2520, 995/504, 2053/
%e A282511 1008, 703/336, 3599/1680, ... - _N. J. A. Sloane_, Dec 15 2017
%t A282511 With[{nn = 45}, Numerator@ Accumulate[1/Complement[Range@ nn, Prime@ Range@ PrimePi@ nn]]] (* _Michael De Vlieger_, Feb 18 2017 *)
%o A282511 (PARI) a018252(n) = if(n==1, 1, my(i=1); forcomposite(c=1, , i++; if(i==n, return(c))))
%o A282511 a(n) = numerator(sum(k=1, n, 1/a018252(k))) \\ _Felix Fröhlich_, Feb 17 2017
%Y A282511 Cf. A018252 (nonprime numbers), A282512 (denominators).
%Y A282511 The following fractions are all related to each other: Sum 1/n: A001008/A002805, Sum 1/prime(n): A024451/A002110 and A106830/A034386, Sum 1/nonprime(n): A282511/A282512, Sum 1/composite(n): A250133/A296358.
%K A282511 nonn,frac
%O A282511 1,2
%A A282511 _Ralf Steiner_, Feb 17 2017
%E A282511 More terms from _Felix Fröhlich_, Feb 17 2017