OFFSET
1,3
COMMENTS
a(22) <= 170499674479. a(23) <= 1307169596354. a(24) <= 3178914388021. a(25) <= 3178914388021. a(26) <= 43614705403646 [From Donovan Johnson, Feb 17 2010]
EXAMPLE
When k=1,2 and 3, Omega(6k-1) + Omega(6k+1) = 2. When k=4, Omega(6k-1) + Omega(6k+1) = 3, so a(3)=4.
MATHEMATICA
Maxie=0; For[x=6, x<10000001, x+=6, S=0; T=0; For[k=1, k< Length[FactorInteger[x-1]]+1, k++, S+= FactorInteger[x-1][[k]][[2]]]; For[m=1, m< Length[FactorInteger[x+1]]+1, m++, T+= FactorInteger[x+1][[m]][[2]]]; If[S+T>Maxie, Print[x/6, " ", S+T]; Maxie=S+T]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arran Fernandez, Oct 03 2008
EXTENSIONS
a(15)-a(21) from Donovan Johnson, Feb 17 2010
STATUS
approved