|
Search: id:A076158
|
|
|
| A076158 |
|
a(n) = the least positive integer k such that Omega(n+k) = Omega(n)+k, where Omega(m) (A001222) denotes the number of prime factors of m, counting multiplicity. |
|
+0
1
|
|
| 1, 14, 13, 124, 59, 506, 505, 9208, 2551, 6134, 6133, 81908
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
Omega(14 + 2) = 4 = Omega(14) + 2, and 14 is the least k such that Omega(k+2) = Omega(k)+2. Therefore a(2) = 14.
|
|
MATHEMATICA
|
Omega[n_] := Apply[Plus, Transpose[FactorInteger[n]][[2]]]; m = {1}; For[k = 2, k <= 12, k++, l = {}; Do[ If[Omega[i + k] == Omega[i] + k, l = Append[l, i]], {i, 2, 10^5}]; m = Append[m, Min[l]]]; m
|
|
CROSSREFS
|
Sequence in context: A022970 A023456 A055125 this_sequence A128883 A010853 A031167
Adjacent sequences: A076155 A076156 A076157 this_sequence A076159 A076160 A076161
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Nov 01 2002
|
|
|
Search completed in 0.002 seconds
|
