OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MAPLE
A001222 := proc(n) numtheory[bigomega](n) ; end: isA144552 := proc(n) if A001222(n) <= 1 or A001222(n+1) <= 1 then RETURN(false) ; fi; if not isprime(A001222(n)+A001222(n+1)) then true; else false; fi; end: for n from 0 to 200 do if isA144552(n) then printf("%d, ", n*(n+1)/2) ; fi; od: # R. J. Mathar, Jan 03 2009
MATHEMATICA
Times@@#/2&/@Select[Partition[Select[Range[200], CompositeQ], 2, 1], #[[2]]- #[[1]] == 1&&CompositeQ[Total[PrimeOmega[#]]]&] (* Harvey P. Dale, Jun 05 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 31 2008
EXTENSIONS
Edited (and 1596 inserted) by R. J. Mathar, Jan 03 2009
Edited by N. J. A. Sloane, Jan 08 2009
STATUS
approved