OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1300
EXAMPLE
43 is in the sequence because ( 1/5! + 1/7! ) = (1/120 + 1/5040) = 43/5040: numerator(43/5040) = 43 which is prime.
MAPLE
KD := proc() local a, b, d, e; a:=ithprime(n)!; b:= ithprime(n+1)!; d:=(1/a) + (1/b); e:=numer(d); if isprime(e) then RETURN (e); fi; end: seq(KD(), n=1..100);
MATHEMATICA
k={}; Do[p=Prime[n]; q=Prime[n+1]; p2=Numerator[1/p!+1/q!]; If[PrimeQ[p2], AppendTo[k, p2]], {n, 150}]; k
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Jan 15 2014
STATUS
approved