A344439 a(n) = n - A206369(n).

0, 1, 1, 1, 1, 4, 1, 3, 2, 6, 1, 6, 1, 8, 7, 5, 1, 11, 1, 8, 9, 12, 1, 14, 4, 14, 7, 10, 1, 22, 1, 11, 13, 18, 11, 15, 1, 20, 15, 20, 1, 30, 1, 14, 17, 24, 1, 26, 6, 29, 19, 16, 1, 34, 15, 26, 21, 30, 1, 36, 1, 32, 21, 21, 17, 46, 1, 20, 25, 46, 1, 37, 1, 38, 33, 22, 17, 54, 1, 36, 20, 42, 1, 48, 21, 44, 31, 38, 1, 62

Offset

1,6

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Formula

a(n) = n - A206369(n).

a(n) = A344440(n) - A344441(n).

Mathematica

Array[# - # DivisorSum[#, LiouvilleLambda[#]/# &] &, 90] (* Michael De Vlieger, May 24 2021, after Enrique Pérez Herrero at A206369 *)

Prog

(PARI)
A206369(n) = sumdiv(n, d, eulerphi(n/d) * issquare(d)); \\ From A206369
A344439(n) = (n-A206369(n));

Crossrefs

Cf. A206369, A344440, A344441.

Sequence in context: A301907 A197840 A360995 * A342403 A019633 A067277

Adjacent sequences: A344436 A344437 A344438 * A344440 A344441 A344442

Keyword

nonn

Author

Antti Karttunen, May 23 2021

Status

approved