A341933 a(n) = A023896(n) mod A000203(n).
0, 1, 3, 4, 4, 6, 5, 1, 1, 2, 7, 24, 8, 18, 12, 2, 10, 15, 11, 38, 30, 2, 13, 36, 2, 30, 3, 0, 16, 48, 17, 4, 42, 2, 36, 34, 20, 42, 20, 50, 22, 60, 23, 20, 72, 2, 25, 12, 3, 35, 24, 36, 28, 6, 20, 72, 66, 2, 31, 144, 32, 66, 94, 8, 48, 84, 35, 80, 78, 120, 37, 84, 38, 78, 12, 108, 6, 96, 41, 164
Offset: 1
Keywords
Examples
a(6) = 6 because the sum of totatives of 6 is 1+5 = 6, the sum of divisors of 6 is 1+2+3+6 = 12, and 6 mod 12 = 6.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
f:= n -> n*numtheory:-phi(n)/2 mod numtheory:-sigma(n): map(f, [$1..100]);
-
Mathematica
Array[Mod[# EulerPhi[#]/2 + Boole[# == 1]/2, DivisorSigma[1, #]] &, 80] (* Michael De Vlieger, Feb 23 2021 *)
Comments