login
A302043
a(n) = n - A302042(n); an analog of A060681 based on the sieve of Eratosthenes (A083221).
3
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).
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
Sequence in context: A122376 A067240 A126080 * A060681 A202479 A161660
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 31 2018
STATUS
approved