OFFSET
1,1
COMMENTS
This sequence is a subsequence of A102770.
LINKS
Jason Kimberley, Table of n, a(n) for n = 1..5000
FORMULA
MATHEMATICA
(Times@@#-1)/2&/@Select[Partition[Prime[Range[200]], 2, 1], Last[#]- First[#]== 2&] (* Harvey P. Dale, Jun 26 2011 *)
PROG
(PARI) for(n=1, 200, if(prime(n+1)-prime(n)==2, print1((prime(n)*prime(n+1)-1)/2", "))) \\ Altug Alkan, Oct 23 2015
(PARI) p=2; forprime(q=3, 1e3, if(q-p==2, print1(p*q\2", ")); p=q) \\ Charles R Greathouse IV, Apr 01 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Jul 09 2006
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
Edited by Jason Kimberley, Oct 23 2015
STATUS
approved