OFFSET
1,1
COMMENTS
All the terms in the sequence, except a(1), are congruent to 1 mod 6.
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..6606
MAPLE
KD := proc(n) local a, b; a:=ithprime(n)*ithprime(n+1)*ithprime(n+2); b:=a+2; if isprime(b) then RETURN (ithprime(n)); fi; end: seq(KD(n), n=1..2000);
MATHEMATICA
KD={}; Do[p=Prime[n]; If[PrimeQ[p*Prime[n+1]*Prime[n+2] + 2], AppendTo[KD, p]], {n, 1000}]; KD
CROSSREFS
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Apr 09 2014
STATUS
approved