|
Search: id:A145194
|
|
|
| A145194 |
|
Least k for which Omega(6k-1) + Omega(6k+1) >= n. |
|
+0
2
|
|
| 1, 1, 4, 20, 41, 104, 479, 1146, 7603, 16521, 91146, 188021, 188021, 1861979
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
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
|
Cf. A145193
Sequence in context: A044446 A072977 A163365 this_sequence A164924 A033579 A160799
Adjacent sequences: A145191 A145192 A145193 this_sequence A145195 A145196 A145197
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Arran Fernandez (arran(AT)borve.org), Oct 03 2008
|
|
|
Search completed in 0.002 seconds
|
