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

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

Formula

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

Prog

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

Crossrefs

Partial sums of A359550.

Cf. A048103, A276086, A376411.

Cf. also A377983.

Sequence in context: A215781 A215090 A083544 * A367328 A057353 A076539

Adjacent sequences: A377977 A377978 A377981 * A377983 A377984 A377985

Keyword

nonn

Author

Antti Karttunen, Nov 13 2024

Status

approved