A377982 a(n) is the number of terms of A048103 (numbers with no p^p divisors) less than or equal to n.

0, 1, 2, 3, 3, 4, 5, 6, 6, 7, 8, 9, 9, 10, 11, 12, 12, 13, 14, 15, 15, 16, 17, 18, 18, 19, 20, 20, 20, 21, 22, 23, 23, 24, 25, 26, 26, 27, 28, 29, 29, 30, 31, 32, 32, 33, 34, 35, 35, 36, 37, 38, 38, 39, 39, 40, 40, 41, 42, 43, 43, 44, 45, 46, 46, 47, 48, 49, 49, 50, 51, 52, 52, 53, 54, 55, 55, 56, 57, 58, 58, 58, 59

Offset: 0

Author

Antti Karttunen, Nov 13 2024

Keywords

• nonn

Comments

The number of terms in the range of A276086 that are <= n.

Links

• Antti Karttunen, Table of n, a(n) for n = 0..100000

Crossrefs

Partial sums of A359550.

Cf. A048103, A276086, A376411.

Cf. also A377983.

Programs

PARI

up_to = 10000;
A359550(n) = { my(pp); forprime(p=2, , pp = p^p; if(!(n%pp), return(0)); if(pp > n, return(1))); };
A377982list(up_to) = { my(v=vector(1+up_to), s=0); v[1] = s = A359550(0); for(n=1,up_to,s += A359550(n); v[1+n] = s); (v); };
v377982 = A377982list(up_to);
A377982(n) = v377982[1+n];

Formula

a(n) = Sum_{i=0..n} A359550(i).