|
|
A192688
|
|
Sum of omega-values for two consecutive indices where they equal the omega-value at the sum of the two indices.
|
|
0
|
|
|
1, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 3, 3, 4, 3, 3, 3, 3, 4, 3, 3
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Generated by indices n = 1, 7, 16, 31, 52, 82, 97, 136, 157, 172, 178, 192, 199, 232, 241, 256, 262, 277, 292, ...
|
|
LINKS
|
|
|
MAPLE
|
for n from 1 to 2000 do
end if;
|
|
MATHEMATICA
|
f[n_] := Block[{a = PrimeNu[n] + PrimeNu[n + 1]}, If[a == PrimeNu[2n + 1], Return@ a]]; k = 1; lst = {}; While[k < 2600, If[f@k > 0, AppendTo[lst, f@ k]]; k++]; lst (* Robert G. Wilson v, Aug 29 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|