OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[Position[Accumulate[Range[n, n+300]], _?(PrimeOmega[#]==2&), 1, 1], {n, 100}]//Flatten (* The parameter 300 is sufficient for n up to 100000 but might have to be increased for larger n. *) (* Harvey P. Dale, Feb 14 2018 *)
PROG
(PARI) { a(n) = my(s, m); s=n; m=n; while(bigomega(s)!=2, m++; s+=m); m-n+1 }
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov & Max Alekseyev, Jul 03 2005
STATUS
approved