A302043 a(n) = n - A302042(n); an analog of A060681 based on the sieve of Eratosthenes (A083221).

0, 1, 2, 2, 4, 3, 6, 4, 6, 5, 10, 6, 12, 7, 10, 8, 16, 9, 18, 10, 12, 11, 22, 12, 20, 13, 20, 14, 28, 15, 30, 16, 18, 17, 28, 18, 36, 19, 28, 20, 40, 21, 42, 22, 24, 23, 46, 24, 42, 25, 26, 26, 52, 27, 30, 28, 30, 29, 58, 30, 60, 31, 50, 32, 54, 33, 66, 34, 36, 35, 70, 36, 72, 37, 58, 38, 66, 39, 78, 40, 42, 41, 82, 42, 50, 43, 52, 44, 88, 45, 42

Offset: 1

Author

Antti Karttunen, Mar 31 2018

Keywords

• nonn

Comments

An analog of A060681 based on the sieve of Eratosthenes (A083221).

Links

• Antti Karttunen, Table of n, a(n) for n = 1..65537
• Index entries for sequences generated by sieves

Crossrefs

Cf. A060681, A302042.

Programs

PARI

A302042(n) = if(1==n,n,my(k=0); while((n%2), n = A268674(n); k++); n = n/2; while(k>0, n = A250469(n); k--); (n));
A302043(n) = (n - A302042(n));

Formula

a(n) = n - A302042(n).