|
|
A348675
|
|
a(n) = Sum_{k=0..n-1} Omega(n^2-k^2).
|
|
0
|
|
|
0, 3, 6, 10, 14, 18, 21, 27, 31, 35, 39, 44, 48, 54, 58, 64, 68, 74, 77, 83, 87, 91, 96, 102, 107, 112, 117, 123, 127, 132, 135, 144, 149, 153, 158, 164, 167, 173, 178, 184, 190, 195, 199, 205, 210, 215, 219, 227, 231, 238, 242, 247, 252, 258, 262, 269, 273, 278
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
For n = 3, row 3 of A094728 is 9, 8, 5, and a(3) = Omega(9)+Omega(8)+Omega(5) = 2+3+1 = 6.
|
|
MAPLE
|
a := n -> add(NumberTheory:-NumberOfPrimeFactors(n*n - k*k), k = 0..n-1):
seq(a(n), n = 1..58);
|
|
MATHEMATICA
|
a[n_] := Sum[PrimeOmega[n^2 - k^2], {k, 0, n - 1}]; Array[a, 60] (* Amiram Eldar, Oct 30 2021 *)
|
|
PROG
|
(PARI) a(n) = sum(k=0, n-1, bigomega(n^2-k^2)); \\ Michel Marcus, Oct 30 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|