OFFSET
2,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 2..5000
MATHEMATICA
dpf[{a_, b_}]:=PrimeNu[((a(b-1))+(a-1)b)/2]; dpf/@Partition[Prime[ Range[ 2, 110]], 2, 1] (* Harvey P. Dale, Nov 16 2011 *)
PROG
(PARI) a(n)=omega(((prime(n)*(prime(n+1)-1)+(prime(n)-1)*prime(n+1))/2)) \\ Michel Marcus, May 16 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 29 2004
STATUS
approved