login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A334202 a(n) = A064097(n) - A323077(n). 3
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

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

FORMULA

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

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

PROG

(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));

CROSSREFS

Cf. A006530, A060681, A064097, A323077.

Sequence in context: A277564 A323355 A108230 * A324729 A253558 A061395

Adjacent sequences:  A334199 A334200 A334201 * A334203 A334204 A334205

KEYWORD

nonn

AUTHOR

Antti Karttunen, May 11 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 26 01:49 EDT 2021. Contains 346294 sequences. (Running on oeis4.)