OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..3954
EXAMPLE
The first few fractions are 1, 5/4, 17/12, 37/24, 119/72, 631/360, 661/360, 4807/2520, 995/504, 2053/1008, 703/336, 3599/1680, ... - N. J. A. Sloane, Dec 15 2017
MAPLE
NP:= remove(isprime, [$1..100]):
S:= ListTools:-PartialSums(map(t -> 1/t, NP)):
map(denom, S); # Robert Israel, May 01 2017
MATHEMATICA
With[{nn=50}, Denominator@Accumulate[1/Complement[Range@nn, Prime@Range@PrimePi@nn]]] (* Vincenzo Librandi, May 02 2017 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ralf Steiner, Feb 17 2017
EXTENSIONS
Corrected by Robert Israel, May 01 2017
STATUS
approved