A354995 a(n) = A354933(n) - A034699(n).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8

Offset

1,60

Links

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

Mathematica

a[n_] := SelectFirst[Divisors[n], # >= n/# && CoprimeQ[#, n/#] &] - Max[Power @@@ FactorInteger[n]]; Array[a, 100] (* Amiram Eldar, Jun 18 2022 *)

Prog

(PARI)
A034699(n) = if(1==n, n, my(f=factor(n)); vecmax(vector(#f[, 1], i, f[i, 1]^f[i, 2])));
A354933(n) = fordiv(n, d, if((d>=(n/d)) && 1==gcd(d, n/d), return(d)));
A354995(n) = (A354933(n) - A034699(n));

Crossrefs

Cf. A034699, A354933.

Cf. A051283 (apparently gives the positions of nonzero terms). Cf. also A354996.

Sequence in context: A182796 A079683 A115528 * A270032 A340980 A305671

Adjacent sequences: A354992 A354993 A354994 * A354996 A354997 A354998

Keyword

nonn,look

Author

Antti Karttunen, Jun 18 2022

Status

approved