A334202 a(n) = A064097(n) - A323077(n).

0, 1, 2, 1, 3, 2, 4, 1, 2, 3, 5, 2, 5, 4, 3, 1, 5, 2, 6, 3, 4, 5, 7, 2, 3, 5, 2, 4, 7, 3, 7, 1, 5, 5, 4, 2, 7, 6, 5, 3, 7, 4, 8, 5, 3, 7, 9, 2, 4, 3, 5, 5, 8, 2, 5, 4, 6, 7, 9, 3, 8, 7, 4, 1, 5, 5, 9, 5, 7, 4, 9, 2, 8, 7, 3, 6, 5, 5, 9, 3, 2, 7, 9, 4, 5, 8, 7, 5, 9, 3, 5, 7, 7, 9, 6, 2, 8, 4, 5, 3, 9, 5, 9, 5, 4

Offset: 1

Author

Antti Karttunen, May 11 2020

Keywords

• nonn

Comments

a(A122111(n)) differs from A001222(n) for the first time at n=64.

Links

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

Crossrefs

Cf. A006530, A060681, A064097, A323077.

Programs

PARI

A060681(n) = (n-if(1==n,n,n/vecmin(factor(n)[,1])));
A064097(n) = if(1==n,0,1+A064097(A060681(n)));
A323077(n) = if(1>=bigomega(n),0,1+A323077(A060681(n)));
A334202(n) = (A064097(n)-A323077(n));

PARI

A006530(n) = if(n>1, vecmax(factor(n)[, 1]), 1);
A334202(n) = A064097(A006530(n));

Formula

a(n) = A064097(n) - A323077(n).

a(n) = A064097(A006530(n)).