login
Row sums of A374443.
1

%I #5 Jul 13 2024 12:36:08

%S 1,2,5,8,8,14,21,20,14,18,37,32,36,38,53,60,26,50,51,56,64,86,85,68,

%T 66,50,101,48,92,86,165,92,50,138,133,152,96,110,149,164,118,122,237,

%U 128,148,150,181,140,126,98,145,216,176,158,141,244,170,242,229,176,300

%N Row sums of A374443.

%p rad := n -> ifelse(n = 0, 1, NumberTheory:-Radical(n)):

%p a := n -> local k; add(rad(igcd(n, k)), k = 0..n):

%p seq(a(n), n = 0..60);

%Y Cf. A374443.

%K nonn

%O 0,2

%A _Peter Luschny_, Jul 12 2024