A036378 -id:A036378 - cp's OEIS frontend

A373197 Sum of all squarefree numbers from prime(n) to prime(n+1) - 1.

2, 3, 11, 17, 11, 42, 17, 62, 49, 59, 133, 114, 83, 89, 98, 223, 59, 254, 206, 71, 302, 161, 341, 462, 97, 203, 314, 107, 330, 824, 386, 398, 275, 856, 149, 460, 635, 494, 337, 702, 179, 1294, 191, 582, 197, 1635, 1950, 449, 227, 690, 943, 239, 983, 1013, 1036

Offset: 1

Gus Wiseman, May 29 2024

nonn

			This is the sequence of row sums of A005117 treated as a triangle with row-lengths A373198:
   2
   3
   5   6
   7  10
  11
  13  14  15
  17
  19  21  22
  23  26
  29  30
  31  33  34  35
  37  38  39
  41  42
  43  46
  47  51
  53  55  57  58

Counting all numbers (not just squarefree) gives A371201.
For the sectioning of A005117 (squarefree between prime):
- sum is A373197 (this sequence)
- length is A373198 = A061398 - 1
- min is A000040
- max is A112925, opposite A112926
For squarefree numbers between powers of two:
- sum is A373123
- length is A077643, partial sums A143658
- min is A372683, delta A373125, indices A372540, firsts of A372475
- max is A372889, delta A373126
For primes between powers of two:
- sum is A293697 (except initial terms)
- length is A036378
- min is A104080 or A014210, indices A372684 (firsts of A035100)
- max is A014234, delta A013603
Cf. A372473 (firsts of A372472), A372541 (firsts of A372433).
Cf. A046933, A049093, A049094, A076259, A077641.

Table[Total[Select[Range[Prime[n],Prime[n+1]-1],SquareFreeQ]],{n,15}]

A377431 Numbers k such that there is at least one squarefree number between prime(k)+1 and prime(k+1)-1.

Original entry on oeis.org

3, 4, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 21, 22, 23, 24, 26, 27, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 42, 44, 46, 47, 48, 50, 51, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 84, 85, 86

Offset: 1

Gus Wiseman, Oct 29 2024

nonn

			Primes 4 and 5 are 7 and 11, and the interval (8,9,10) contains 10, which is squarefree, so 4 is in the sequence.

These are the positive positions in A061398, or terms >= 2 in A373198.
The complement (no squarefree numbers) is A068360.
For prime-power instead of squarefree we have A377057, strict version A377287.
For exactly one squarefree number we have A377430.
A000040 lists the primes, differences A001223, seconds A036263.
A002808 lists the composites, complement A008578.
A005117 lists the squarefree numbers, complement A013929.
A377038 gives k-differences of squarefree numbers.
Cf. A007674, A013603, A029707, A036378, A046933, A072284, A076259, A077641, A077643, A075526, A078147, A112925, A112926, A120992, A293697.

Select[Range[100], Length[Select[Range[Prime[#]+1,Prime[#+1]-1],SquareFreeQ]]>=1&]

A293697 a(n) is the sum of prime numbers between 2^n+1 and 2^(n+1).

Original entry on oeis.org

2, 3, 12, 24, 119, 341, 1219, 4361, 16467, 57641, 208987, 780915, 2838550, 10676000, 39472122, 148231324, 559305605, 2106222351, 7995067942, 30299372141, 115430379568, 440354051430, 1683364991290, 6448757014608, 24754017328490, 95132828618112, 366232755206338

Offset: 0

Olivier Gérard, Oct 15 2017

nonn

			From _Gus Wiseman_, Jun 02 2024: (Start)
Row-sums of:
   2
   3
   5   7
  11  13
  17  19  23  29  31
  37  41  43  47  53  59  61
  67  71  73  79  83  89  97 101 103 107 109 113 127
(End)

Cf. A036378 (number of primes summed).
Cf. A293696 (triangle of partial sums).
Minimum is A014210 or A104080, indices A372684.
Maximum is A014234, delta A013603.
Counting all numbers (not just prime) gives A049775.
For squarefree instead of prime numbers we have A373123, length A077643.
For prime indices we have A373124.
Partial sums give A130739(n+1).
Cf. A000040, A001223, A029931, A035100, A046933, A061398, A092131.

Table[Plus @@
  Table[Prime[i], {i, PrimePi[2^(n)] + 1, PrimePi[2^(n + 1)]}], {n, 0,
   24}]

A372684 Least k such that prime(k) >= 2^n.

Original entry on oeis.org

1, 3, 5, 7, 12, 19, 32, 55, 98, 173, 310, 565, 1029, 1901, 3513, 6543, 12252, 23001, 43391, 82026, 155612, 295948, 564164, 1077872, 2063690, 3957810, 7603554, 14630844, 28192751, 54400029, 105097566, 203280222, 393615807, 762939112, 1480206280, 2874398516, 5586502349

Offset: 1

Gus Wiseman, May 30 2024

nonn

			The numbers prime(a(n)) together with their binary expansions and binary indices begin:
        2:                       10 ~ {2}
        5:                      101 ~ {1,3}
       11:                     1011 ~ {1,2,4}
       17:                    10001 ~ {1,5}
       37:                   100101 ~ {1,3,6}
       67:                  1000011 ~ {1,2,7}
      131:                 10000011 ~ {1,2,8}
      257:                100000001 ~ {1,9}
      521:               1000001001 ~ {1,4,10}
     1031:              10000000111 ~ {1,2,3,11}
     2053:             100000000101 ~ {1,3,12}
     4099:            1000000000011 ~ {1,2,13}
     8209:           10000000010001 ~ {1,5,14}
    16411:          100000000011011 ~ {1,2,4,5,15}
    32771:         1000000000000011 ~ {1,2,16}
    65537:        10000000000000001 ~ {1,17}
   131101:       100000000000011101 ~ {1,3,4,5,18}
   262147:      1000000000000000011 ~ {1,2,19}
   524309:     10000000000000010101 ~ {1,3,5,20}
  1048583:    100000000000000000111 ~ {1,2,3,21}
  2097169:   1000000000000000010001 ~ {1,5,22}
  4194319:  10000000000000000001111 ~ {1,2,3,4,23}
  8388617: 100000000000000000001001 ~ {1,4,24}

The opposite (greatest k such that prime(k) <= 2^n) is A007053.
Positions of first appearances in A035100.
The distance from prime(a(n)) to 2^n is A092131.
Counting zeros instead of all bits gives A372474, firsts of A035103.
Counting ones instead of all bits gives A372517, firsts of A014499.
For primes between powers of 2:
- sum A293697
- length A036378
- min A104080 or A014210
- max A014234, delta A013603
For squarefree numbers between powers of 2:
- sum A373123
- length A077643, run-lengths of A372475
- min A372683, delta A373125, indices A372540
- max A372889, delta A373126, indices A143658
For squarefree numbers between primes:
- sum A373197
- length A373198 = A061398 - 1
- min A000040
- max A112925, opposite A112926
Cf. A000120, A029837, A029931, A030190, A049095, A069010, A070939, A077641, A080791, A211997.

Table[PrimePi[If[n==1,2,NextPrime[2^n]]],{n,30}]

a(n) = primepi(nextprime(2^n)); \\ Michel Marcus, May 31 2024

a(n>1) = A007053(n) + 1.
a(n) = A000720(A104080(n)).
prime(a(n)) = A104080(n).
prime(a(n)) - 2^n = A092131(n).

More terms from Michel Marcus, May 31 2024

A120033 Number of semiprimes s such that 2^n < s <= 2^(n+1).

Original entry on oeis.org

0, 1, 1, 4, 4, 12, 20, 40, 75, 147, 285, 535, 1062, 2006, 3918, 7548, 14595, 28293, 54761, 106452, 206421, 401522, 780966, 1520543, 2962226, 5777162, 11272279, 22009839, 43006972, 84077384, 164482781, 321944211, 630487562, 1235382703

Offset: 0

Jonathan Vos Post and Robert G. Wilson v, Mar 20 2006

nonn

The partial sum equals the number of Pi_2(2^n) = A125527(n).

			(2^2, 2^3] there is one semiprime, namely 6. 4 was counted in the previous entry.

Dana Jacobsen, Table of n, a(n) for n = 0..62 (first 48 terms from Charles R Greathouse IV, corrected a(47)-a(48))

Cf. A001358, A072000, A066265, A036378, A120033-A120043.

SemiPrimePi[n_] := Sum[PrimePi[n/Prime[i]] - i + 1, {i, PrimePi[Sqrt[n]]}]; t = Table[SemiPrimePi[2^n], {n, 0, 35}]; Rest@t - Most@t

pi2(n)=my(s,i); forprime(p=2, sqrt(n), s+=primepi(n\p); i++); s - i * (i-1)/2
a(n)=pi2(2^(n+1))-pi2(2^n) \\ Charles R Greathouse IV, May 15 2012

use ntheory ":all"; print "$ ",semiprime_count(1+(1<<$), 1<<($+1)),"\n" for 0..48; # _Dana Jacobsen, Mar 04 2019

use ntheory ":all"; my $l=0; for (0..48) { my $c=semiprime_count(1<<($+1)); print "$ ",$c-$l,"\n"; $l=$c; } # Dana Jacobsen, Mar 04 2019

A373125 Difference between 2^n and the least squarefree number >= 2^n.

Original entry on oeis.org

0, 0, 1, 2, 1, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 3, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1

Offset: 0

Gus Wiseman, May 28 2024

nonn

For prime instead of squarefree we have A092131, opposite A013603.
For primes instead of powers of 2: A240474, A240473, A112926, A112925.
Difference between 2^n and A372683(n).
The opposite is A373126, delta of A372889.
A005117 lists squarefree numbers, first differences A076259.
A053797 gives lengths of gaps between squarefree numbers.
A061398 counts squarefree numbers between primes (exclusive).
A070939 or (preferably) A029837 gives length of binary expansion.
A077643 counts squarefree terms between powers of 2, run-lengths of A372475.
A143658 counts squarefree numbers up to 2^n.
Cf. A372473 (firsts of A372472), A372541 (firsts of A372433).
For primes between powers of 2:
- sum A293697 (except initial terms)
- length A036378
- min A104080 or A014210, indices A372684 (firsts of A035100)
- max A014234, delta A013603
Cf. A010036, A029931, A049093-A049096, A077641, A372540, A373197, A373198.

Table[NestWhile[#+1&,2^n,!SquareFreeQ[#]&]-2^n,{n,0,100}]

a(n) = A372683(n)-2^n. - R. J. Mathar, May 31 2024

A373126 Difference between 2^n and the greatest squarefree number <= 2^n.

Original entry on oeis.org

0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1

Offset: 0

Gus Wiseman, May 29 2024

nonn

			The greatest squarefree number <= 2^21 is 2097149, and 2^21 = 2097152, so a(21) = 3.

For prime instead of squarefree we have A013603, opposite A092131.
For primes instead of powers of 2: A240474, A240473, A112926, A112925.
Difference between 2^n and A372889.
The opposite is A373125, delta of A372683.
A005117 lists squarefree numbers, first differences A076259.
A053797 gives lengths of gaps between squarefree numbers.
A061398 counts squarefree numbers between primes (exclusive).
A070939 or (preferably) A029837 gives length of binary expansion.
A077643 counts squarefree terms between powers of 2, run-lengths of A372475.
A143658 counts squarefree numbers up to 2^n.
Cf. A372473 (firsts of A372472), A372541 (firsts of A372433).
For primes between powers of 2:
- sum A293697 (except initial terms)
- length A036378
- min A104080 or A014210, indices A372684 (firsts of A035100)
- max A014234
Cf. A010036, A029931, A046933, A049093-A049096, A077641, A372540, A373197.

Table[2^n-NestWhile[#-1&,2^n,!SquareFreeQ[#]&],{n,0,100}]

a(n) = 2^n-A372889(n). - R. J. Mathar, May 31 2024

A120043 Number of 12-almost primes 12ap such that 2^n < 12ap <= 2^(n+1).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 5, 8, 22, 47, 103, 234, 492, 1082, 2271, 4867, 10349, 21794, 45907, 96293, 202006, 421287, 879388, 1828931, 3800227, 7882784, 16325796, 33771056, 69767214, 143971956, 296771231, 611156696, 1257374970

Offset: 0

Jonathan Vos Post and Robert G. Wilson v, Mar 21 2006

nonn

The partial sum equals the number of Pi_12(2^n).

			(2^12, 2^13] there is one semiprime, namely 6144. 4096 was counted in the previous entry.

Cf. A069273, A036378, A120033, A120034, A120035, A120036, A120037, A120038, A120039, A120040, A120041, A120042, A120043.

AlmostPrimePi[k_Integer, n_] := Module[{a, i}, a[0] = 1; If[k == 1, PrimePi[n], Sum[PrimePi[n/Times @@ Prime[Array[a, k - 1]]] - a[k - 1] + 1, Evaluate[ Sequence @@ Table[{a[i], a[i - 1], PrimePi[(n/Times @@ Prime[Array[a, i - 1]])^(1/(k - i + 1))]}, {i, k - 1}]]]]]; (* Eric W. Weisstein, Feb 07 2006 *)
t = Table[AlmostPrimePi[12, 2^n], {n, 0, 30}]; Rest@t - Most@t

from math import isqrt, prod
from sympy import primerange, integer_nthroot, primepi
def A120043(n):
    def g(x,a,b,c,m): yield from (((d,) for d in enumerate(primerange(b,isqrt(x//c)+1),a)) if m==2 else (((a2,b2),)+d for a2,b2 in enumerate(primerange(b,integer_nthroot(x//c,m)[0]+1),a) for d in g(x,a2,b2,c*b2,m-1)))
    def almostprimepi(n,k): return int(sum(primepi(n//prod(c[1] for c in a))-a[-1][0] for a in g(n,0,1,1,k)) if k>1 else primepi(n))
    return -almostprimepi(m:=1<Chai Wah Wu, Aug 31 2024

A373123 Sum of all squarefree numbers from 2^(n-1) to 2^n - 1.

Original entry on oeis.org

1, 5, 18, 63, 218, 891, 3676, 15137, 60580, 238672, 953501, 3826167, 15308186, 61204878, 244709252, 979285522, 3917052950, 15664274802, 62663847447, 250662444349, 1002632090376, 4010544455838, 16042042419476, 64168305037147, 256675237863576

Offset: 1

Gus Wiseman, May 27 2024

nonn

			This is the sequence of row sums of A005117 treated as a triangle with row-lengths A077643:
   1
   2   3
   5   6   7
  10  11  13  14  15
  17  19  21  22  23  26  29  30  31
  33  34  35  37  38  39  41  42  43  46  47  51  53  55  57  58  59  61  62

Counting all numbers (not just squarefree) gives A010036.
For the sectioning of A005117:
Row-lengths are A077643, partial sums A143658.
First column is A372683, delta A373125, indices A372540, firsts of A372475.
Last column is A372889, delta A373126, indices A143658, diffs A077643.
For primes instead of powers of two:
- sum A373197
- length A373198 = A061398 - 1
- maxima A112925, opposite A112926
For prime instead of squarefree:
- sum A293697 (except initial terms)
- length A036378
- min A104080 or A014210, indices A372684 (firsts of A035100)
- max A014234, delta A013603
A000120 counts ones in binary expansion (binary weight), zeros A080791.
A005117 lists squarefree numbers, first differences A076259.
A030190 gives binary expansion, reversed A030308.
A070939 or (preferably) A029837 gives length of binary expansion.
Cf. A372473 (firsts of A372472), A372541 (firsts of A372433).
Cf. A029931, A048793, A049093, A049094, A059015, A069010, A077641.

Table[Total[Select[Range[2^(n-1),2^n-1],SquareFreeQ]],{n,10}]

a(n) = my(s=0); forsquarefree(i=2^(n-1), 2^n-1, s+=i[1]); s; \\ Michel Marcus, May 29 2024

A036386 Number of prime powers (p^2, p^3, ...) <= 2^n.

Original entry on oeis.org

0, 1, 2, 4, 7, 9, 13, 16, 20, 26, 31, 40, 50, 61, 78, 93, 119, 150, 189, 242, 310, 400, 525, 684, 900, 1190, 1581, 2117, 2836, 3807, 5136, 6948, 9425, 12811, 17437, 23788, 32517, 44512, 60971, 83640, 114899, 157948, 217336, 299360, 412635, 569193, 785753, 1085319, 1500140, 2074794, 2870849, 3974425, 5504966

Offset: 1

Labos Elemer

nonn

			For n = 6, there are 9 prime powers not exceeding 2^6 = 64: 4, 8, 9, 16, 25, 27, 32, 49, 64, so a(6) = 9.
For n = 25, a(25) = 900, pi(5792) + pi(322) + pi(76) + pi(32) + pi(17) + pi(11) + pi(8) + pi(6) + pi(5) + pi(4) + pi(4) + pi(3) + pi(3) + pi(3) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(2) + pi(1) = 760 + 66 + 21 + 11 + 7 + 5 + 4 + 3 + 3 + 2 + 2 + 2 + 2 + 2 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 1 + 0 = 900.

Amiram Eldar, Table of n, a(n) for n = 1..150 (terms 1..112 from Hiroaki Yamanouchi, terms 113..125 from Ray Chandler)
Index entries for sequences related to numbers of primes in various ranges.

Cf. A000720, A007053, A029837, A036378-A036390, A060967, A060969, A060970, A060971, A122121, A246547.

f[n_] := Length@ Union@ Flatten@ Table[ Prime[j]^k, {k, 2, n + 1}, {j, PrimePi[2^(n/k)]}]; Array[f, 46] (* Robert G. Wilson v, Jul 08 2011 *)

from sympy import primepi, integer_nthroot
def A036386(n):
    m = 1<Chai Wah Wu, Jan 23 2025

a(n) = Sum_{j=2..n+1} pi(floor(2^(n/j))). The summation starts with squares (j=2); for arbitrary range (=y), the y^(1/j) argument has to be used.

More terms from Labos Elemer, May 07 2001

Terms a(47) and beyond from Hiroaki Yamanouchi, Nov 15 2016

cp's OEIS Frontend

A373197 Sum of all squarefree numbers from prime(n) to prime(n+1) - 1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A377431 Numbers k such that there is at least one squarefree number between prime(k)+1 and prime(k+1)-1.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A293697 a(n) is the sum of prime numbers between 2^n+1 and 2^(n+1).

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A372684 Least k such that prime(k) >= 2^n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A120033 Number of semiprimes s such that 2^n < s <= 2^(n+1).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Perl

Perl

A373125 Difference between 2^n and the least squarefree number >= 2^n.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A373126 Difference between 2^n and the greatest squarefree number <= 2^n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

A120043 Number of 12-almost primes 12ap such that 2^n < 12ap <= 2^(n+1).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

A373123 Sum of all squarefree numbers from 2^(n-1) to 2^n - 1.

Views

Author

Keywords