OFFSET
1,2
COMMENTS
Terms of this sequence are 1..5, 7..11, 14..17, 21..35, 65..66, 71..77, 81..93, 539..543, 600..639, 644..650, 707..818, 1152..1185, 4502..4577, 4601..4823, 4893..5003, 7483..7633, ...
LINKS
Eric Weisstein's World of Mathematics, Prime Sums
MATHEMATICA
f=0; g=0; Do[p=Prime[n]; f=f+1/(p-1); g=g+(-1)^(n+1)*1/(p-1); kf=Denominator[f]; kg=Denominator[g]; If[Equal[kf, kg], Print[n]], {n, 1, 10000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Mar 18 2007
STATUS
approved