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,3

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

Formula

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

Prog

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

Crossrefs

Cf. A060681, A302042.

Sequence in context: A122376 A067240 A126080 * A060681 A202479 A161660

Adjacent sequences: A302040 A302041 A302042 * A302044 A302045 A302046

Keyword

nonn

Author

Antti Karttunen, Mar 31 2018

Status

approved