A065855 -id:A065855 - cp's OEIS frontend

A246370 a(1)=0, a(p_n) = 1 + a(n), a(c_n) = a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n); Also number of nonleading 0-bits in the binary representation of A135141(n).

0, 1, 2, 0, 3, 1, 1, 2, 0, 3, 4, 1, 2, 1, 2, 0, 2, 3, 3, 4, 1, 2, 1, 1, 2, 0, 2, 3, 4, 3, 5, 4, 1, 2, 1, 1, 2, 2, 0, 2, 3, 3, 2, 4, 3, 5, 3, 4, 1, 2, 1, 1, 1, 2, 2, 0, 2, 3, 3, 3, 4, 2, 4, 3, 5, 3, 4, 4, 1, 2, 5, 1, 2, 1, 1, 2, 2, 0, 3, 2, 3, 3, 2, 3, 4, 2, 4, 3, 2, 5, 3, 4, 4, 1, 2, 5, 3, 1, 2, 1, 1, 1, 3, 2, 2, 0, 4, 3, 5, 2, 3, 3, 4, 2, 3, 4, 2, 4, 3, 2

Offset: 1

Antti Karttunen, Aug 27 2014

nonn

			Consider n=30. It is the 19th composite number in A002808: 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, ...
Thus we consider next n=19, which is the 8th prime in A000040: 2, 3, 5, 7, 11, 13, 17, 19, ...
So we proceed with n=8, which is the 3rd composite number, and then with n=3, which is the 2nd prime, and then with n=2 which is the 1st prime, and we have finished.
All in all, it took us 5 steps (A246348(30) = 6 = 5+1) to reach 1, and on the journey, we encountered three primes, 19, 3 and 2, thus a(30) = 3.

Antti Karttunen, Table of n, a(n) for n = 1..32998

Cf. A000040, A002808, A000720, A065855, A080791, A135141, A246348, A246369, A246377.

a(1) = 1, and for n >= 1, if A010051(n) = 1 [i.e. when n is prime], a(n) = 1 + a(A000720(n)), otherwise a(n) = a(A065855(n)). [A000720(n) and A065855(n) tell the number of primes, and respectively, composites <= n].
a(n) = A080791(A135141(n)). [a(n) tells also the number of nonleading zeros in binary representation of A135141(n)].
a(n) = A000120(A246377(n))-1. [Respectively, one less than the number of 1-bits in 0/1-swapped version of that sequence].
a(n) = A246348(n) - A246369(n) - 1.

A257731 Permutation of natural numbers: a(1) = 1, a(prime(n)) = lucky(1+a(n)), a(composite(n)) = unlucky(a(n)), where prime(n) = n-th prime number A000040, composite(n) = n-th composite number A002808 and lucky = A000959, unlucky = A050505.

Original entry on oeis.org

1, 3, 9, 2, 33, 5, 7, 14, 4, 45, 163, 8, 15, 11, 20, 6, 25, 59, 63, 203, 12, 22, 13, 17, 28, 10, 35, 78, 235, 83, 1093, 251, 18, 30, 19, 24, 31, 39, 16, 47, 67, 101, 43, 290, 107, 1283, 87, 309, 26, 41, 27, 34, 21, 42, 53, 23, 61, 88, 115, 128, 321, 57, 354, 137, 1499, 112, 349, 376, 36, 55, 1401, 38, 49, 46, 29, 56, 70, 32, 99, 81

Offset: 1

Antti Karttunen, May 06 2015

nonn

Antti Karttunen, Table of n, a(n) for n = 1..6185
Index entries for sequences that are permutations of the natural numbers

Inverse: A257732.
Cf. A000040, A000720, A000959, A002808, A010051, A050505, A065855.
Related or similar permutations: A246377, A255421, A257726, A257733.
Cf. also A032600, A255553, A255554.
Differs from A257733 for the first time at n=19, where a(19) = 63, while A257733(19) = 203.

a(1) = 1; for n > 1: if A010051(n) = 1 [i.e., if n is a prime], then a(n) = A000959(1+a(A000720(n))), otherwise a(n) = A050505(a(A065855(n))).
As a composition of other permutations:
a(n) = A257726(A246377(n)).
a(n) = A257733(A255421(n)).

A373824 Sorted positions of first appearances in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Original entry on oeis.org

1, 2, 11, 13, 29, 33, 45, 51, 57, 59, 69, 75, 105, 129, 211, 227, 301, 313, 321, 341, 407, 413, 447, 459, 537, 679, 709, 767, 1113, 1301, 1405, 1411, 1429, 1439, 1709, 1829, 1923, 2491, 2543, 2791, 2865, 3301, 3471, 3641, 4199, 4611, 5181, 5231, 6345, 6555

Offset: 1

Gus Wiseman, Jun 21 2024

nonn

Sorted positions of first appearances in A373819.

			The runs of odd primes differing by 2 begin:
   3   5   7
  11  13
  17  19
  23
  29  31
  37
  41  43
  47
  53
  59  61
  67
  71  73
  79
with lengths:
3, 2, 2, 1, 2, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 2, 2, ...
which have runs beginning:
  3
  2 2
  1
  2
  1
  2
  1 1
  2
  1
  2
  1 1 1 1
  2 2
  1 1 1
with lengths:
1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 4, 2, 3, 2, 4, 3,...
with sorted positions of first appearances a(n).

Sorted firsts of A373819 (run-lengths of A251092).
The unsorted version is A373825.
For antiruns we have A373826, unsorted A373827.
A000040 lists the primes.
A001223 gives differences of consecutive primes (firsts A073051), run-lengths A333254 (firsts A335406), run-lengths of run-lengths A373821.
A046933 counts composite numbers between primes.
A065855 counts composite numbers up to n.
A071148 gives partial sums of odd primes.
A373820 gives run-lengths of antirun-lengths, run-lengths of A027833.
For prime runs: A001359, A006512, A025584, A067774, A373405, A373406.
For composite runs: A005381, A054265, A068780, A373403, A373404.
Cf. A006560, A006562, A029707, A037201, A038664, A069010, A122535, A176246, A373401, A373402.

t=Length/@Split[Length/@Split[Select[Range[3,10000],PrimeQ],#1+2==#2&]];
Select[Range[Length[t]],FreeQ[Take[t,#-1],t[[#]]]&]

A065856 The (2^n)-th composite number.

Original entry on oeis.org

4, 6, 9, 15, 26, 48, 88, 168, 323, 627, 1225, 2406, 4736, 9351, 18504, 36655, 72730, 144450, 287147, 571208, 1136971, 2264215, 4510963, 8990492, 17923944, 35743996, 71298762, 142249762, 283859985, 566537515, 1130886504, 2257704401, 4507834166, 9001524190

Offset: 0

Labos Elemer, Nov 26 2001

nonn

a(n) = A002808(A000079(n)).

			composite[1] = composite[2^0] = 4, composite[2] = composite[2^1] = 6, composite[1024] = composite[2^10] = 1225, composite[1073741824] = composite[2^30] = 1130886504.

Chai Wah Wu, Table of n, a(n) for n = 0..70

Cf. A033844, A002808, A062298, A000720, A065855.

Composite[n_Integer] := Block[ {k = n + PrimePi[n] + 1 }, While[ k != n + PrimePi[k] + 1, k = n + PrimePi[k] + 1]; Return[ k ]]; Table[ Composite[2^n], {n, 0, 36} ]

a(n)-pi(a(n))-1 = 2^n.

More terms from Robert G. Wilson v, Nov 26 2001
Definition corrected by N. J. A. Sloane, Jun 07 2009
Further corrections from Reinhard Zumkeller, Jun 24 2009
a(32)-a(33) from Chai Wah Wu, Apr 16 2018

A246369 a(1)=0, a(p_n) = a(n), a(c_n) = 1 + a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n); Also one less than the binary weight of terms of A135141.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 1, 1, 2, 1, 0, 2, 1, 2, 2, 3, 1, 2, 1, 1, 3, 2, 2, 3, 3, 4, 2, 3, 1, 2, 0, 2, 4, 3, 3, 4, 2, 4, 5, 3, 1, 4, 2, 2, 3, 1, 2, 3, 5, 4, 4, 5, 3, 3, 5, 6, 4, 2, 1, 5, 2, 3, 3, 4, 2, 3, 1, 4, 6, 5, 1, 5, 3, 6, 4, 4, 6, 7, 2, 5, 3, 2, 2, 6, 3, 4, 4, 5, 3, 3, 4, 2, 5, 7, 6, 2, 3, 6, 4, 7, 4, 5, 2, 5, 7, 8, 3, 3, 1, 6, 4, 3, 2, 3, 7, 4, 5, 5, 6, 4

Offset: 1

Antti Karttunen, Aug 27 2014

nonn

Consider the following algorithm:
Start:
If n is 1, we have finished,
Otherwise:
If n is a prime, replace it with its index among the primes, n <- A000720(n), and go back to the start.
Otherwise, if n is a composite, replace it with its index among the composites, n <- A065855(n), and go back to the start.
At some point, the process is guaranteed to reach the number 1 at which point we stop.
a(n) tells how many times a composite number was encountered in the process, before 1 was reached. This count includes also +1 for the cases where the initial n was composite at the beginning.

			Consider n=30. It is the 19th composite number in A002808: 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, ...
Thus we consider next n=19, which is the 8th prime in A000040: 2, 3, 5, 7, 11, 13, 17, 19, ...
So we proceed with n=8, which is the 3rd composite number, and then with n=3, which is the 2nd prime, and then with n=2 which is the 1st prime, and we have finished.
All in all, it took us 5 steps (A246348(30) = 6 = 5+1) to reach 1, and on the journey, we encountered two composites, 30 and 8, thus a(30) = 2.

Antti Karttunen, Table of n, a(n) for n = 1..32998

Cf. A000040, A002808, A000120, A000720, A065855, A135141, A246348, A246370, A246377.

a(1) = 1, and for n >= 1, if A010051(n) = 1 [that is, when n is prime], a(n) = a(A000720(n)), otherwise a(n) = 1 + a(A065855(n)). [A000720(n) and A065855(n) tell the number of primes, and respectively, composites <= n].
a(n) = A000120(A135141(n)) - 1. [a(n) is also one less than the Hamming weight (number of 1-bits) of the n-th term of A135141].
a(n) = A080791(A246377(n)). [Respectively, the number of 0-bits for 0/1-swapped version of that sequence].
a(n) = A246348(n) - A246370(n) - 1.

A246379 Permutation of natural numbers: a(1) = 1, a(p_n) = A003961(1+a(n)), a(c_n) = 2*a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n), and A003961(n) shifts the prime factorization of n one step towards larger primes.

Original entry on oeis.org

1, 3, 9, 2, 21, 6, 5, 18, 4, 42, 39, 12, 11, 10, 36, 8, 15, 84, 23, 78, 24, 22, 7, 20, 72, 16, 30, 168, 47, 46, 189, 156, 48, 44, 14, 40, 17, 144, 32, 60, 45, 336, 13, 94, 92, 378, 41, 312, 96, 88, 28, 80, 25, 34, 288, 64, 120, 90, 81, 672, 133, 26, 188, 184, 756, 82, 135, 624, 192, 176, 83, 56, 49

Offset: 1

Antti Karttunen, Aug 29 2014

nonn

Because 2 is the only even prime, it implies that, apart from a(2)=3, odd numbers occur in odd positions only (along with many even numbers that also occur in odd positions). This in turn implies that each odd composite (A071904) resides in a separate infinite cycle in this permutation, except 9, which is in a finite cycle (2 3 9 4).

Antti Karttunen, Table of n, a(n) for n = 1..10000
Index entries for sequences that are permutations of the natural numbers

Inverse: A246380.
Similar or related permutations: A246375, A246377, A246363, A246364, A246365, A246367, A246681.
Cf. A000720, A003961, A010051, A065855, A071904.

default(primelimit, (2^31)+(2^30));
A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ Using code of Michel Marcus
A246379(n) = if(1==n, 1, if(isprime(n), A003961(1+A246379(primepi(n))), 2*A246379(n-primepi(n)-1)));
for(n=1, 10000, write("b246379.txt", n, " ", A246379(n)));
(Scheme, with memoization-macro definec)
(definec (A246379 n) (cond ((< n 2) n) ((= 1 (A010051 n)) (A003961 (+ 1 (A246379 (A000720 n))))) (else (* 2 (A246379 (A065855 n))))))

a(1) = 1, and for n > 1, if A010051(n) = 1 [i.e. when n is a prime], a(n) = A003961(1+a(A000720(n))), otherwise a(n) = 2*a(A065855(n)).
As a composition of related permutations:
a(n) = A246375(A246377(n)).
Other identities. For all n > 1 the following holds:
A000035(a(n)) = A010051(n). [Maps primes to odd numbers > 1, and composites to even numbers, in some order. Permutations A246377 & A246681 have the same property].

A072731 Difference of numbers of composite and prime numbers <= n.

Original entry on oeis.org

0, -1, -2, -1, -2, -1, -2, -1, 0, 1, 0, 1, 0, 1, 2, 3, 2, 3, 2, 3, 4, 5, 4, 5, 6, 7, 8, 9, 8, 9, 8, 9, 10, 11, 12, 13, 12, 13, 14, 15, 14, 15, 14, 15, 16, 17, 16, 17, 18, 19, 20, 21, 20, 21, 22, 23, 24, 25, 24, 25, 24, 25, 26, 27, 28, 29, 28, 29, 30, 31, 30, 31, 30, 31, 32, 33, 34

Offset: 1

Reinhard Zumkeller, Aug 08 2002

sign

a(n+1) = a(n) + A066247(n) - A010051(n), a(1) = 0.

a(n) < 0 iff 1 < n <= 8.

Cf. A000040, A000720 (pi), A002808, A010051, A065855, A066247.

a(n) = A065855(n) - A000720(n).

a(n) = n - 2*pi(n) - 1. - Wesley Ivan Hurt, Jun 16 2013

A101256 Sum of composites <= n.

Original entry on oeis.org

0, 0, 0, 4, 4, 10, 10, 18, 27, 37, 37, 49, 49, 63, 78, 94, 94, 112, 112, 132, 153, 175, 175, 199, 224, 250, 277, 305, 305, 335, 335, 367, 400, 434, 469, 505, 505, 543, 582, 622, 622, 664, 664, 708, 753, 799, 799, 847, 896, 946, 997, 1049, 1049, 1103, 1158, 1214

Offset: 1

Reinhard Zumkeller, Jan 23 2005

nonn

Cf. A065855, A002808.

Cf. A000217, A034387, A101203.

Accumulate[Table[If[n<2,0,If[PrimeQ[n], 0, n]], {n, 1, 100}]] (* James C. McMahon, Jan 07 2024 *)

a(n) = A000217(n) - A034387(n) - 1 = A101203(n) - 1.

A120389 a(n) is such that the a(n)-th composite number is (n-th prime)^2.

Original entry on oeis.org

1, 4, 15, 33, 90, 129, 227, 288, 429, 694, 798, 1149, 1417, 1565, 1879, 2399, 2993, 3201, 3879, 4365, 4623, 5429, 6002, 6920, 8245, 8948, 9314, 10067, 10457, 11245, 14251, 15184, 16627, 17130, 19711, 20253, 21919, 23653, 24845, 26687, 28604

Offset: 1

Leroy Quet, Jun 30 2006

nonn

			a(1)=1 because the 1st composite is 4 = 2^2 = (1st prime)^2.
a(4)=33 because the 33rd composite is 49 = 7^2 = (4th prime)^2;

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Cf. A002808.

c:=proc(n) if isprime(n)=false then n else fi end: C:=[seq(c(n),n=2..53000)]: a:=proc(n) local ct,i: ct:=0: for i from 1 while C[i]<=ithprime(n)^2 do ct:=ct+1: od: end: seq(a(n),n=1..50); # Emeric Deutsch, Jul 26 2006

from sympy import prime, compositepi
A120389_list = [compositepi(prime(i)**2) for i in range(1,101)] # Chai Wah Wu, Apr 21 2018

a(n) = A065855(A000040(n)^2).

More terms from Emeric Deutsch, Jul 26 2006

A257729 Permutation of natural numbers: a(1)=1; a(prime(n)) = oddprime(a(n)), a(composite(n)) = not_an_oddprime(1+a(n)).

Original entry on oeis.org

1, 3, 7, 2, 19, 6, 5, 12, 4, 28, 71, 10, 17, 9, 20, 8, 13, 40, 41, 95, 16, 26, 11, 15, 30, 14, 21, 56, 109, 57, 359, 125, 25, 38, 18, 24, 31, 44, 22, 32, 61, 77, 29, 143, 78, 445, 73, 162, 36, 54, 27, 35, 23, 45, 62, 33, 46, 84, 43, 104, 179, 42, 185, 105, 545, 98, 181, 208, 51, 75, 503, 39, 59, 50, 34, 63, 85, 48, 103, 64, 114, 60, 37

Offset: 1

Antti Karttunen, May 09 2015

nonn

Here composite(n) = n-th composite = A002808(n), prime(n) = n-th prime = A000040(n), oddprime(n) = n-th odd prime = A065091(n) = A000040(n+1), not_an_oddprime(n) = n-th natural number which is not an odd prime = A065090(n).

			As an initial value we have a(1) = 1.
2 is the first prime (= A000040(1)), so we take the a(1)-th odd prime, A065091(1) = 3, thus a(2) = 3.
3 is the second prime, thus we take a(2)-th odd prime, A065091(3) = 7, thus a(3) = 7.
4 is the first composite, thus we take a(1)-th number larger than one which is not an odd prime, and that is A065090(1+1) = 2, thus a(4) = 2.
5 is the third prime, thus we take a(3)-th odd prime, which is A065091(7) = 19, thus a(5) = 19.

Antti Karttunen, Table of n, a(n) for n = 1..10000
Index entries for sequences that are permutations of the natural numbers

Inverse: A257730.
Cf. A000040, A002808, A000720, A010051, A065090, A065091, A065855.
Related or similar permutations: A257728, A246377, A257731, A257802, A236854.

A002808(n) = { my(k=-1); while( -n + n += -k + k=primepi(n), ); n};
A257729(n) = { if(1==n,n,if(isprime(n),prime(1+A257729(primepi(n))),if(4==n,2,A002808(A257729(n-primepi(n)-1)-1))))};
for(n=1, 10000, write("b257729.txt", n, " ", A257729(n)));
\\ After M. F. Hasler's PARI-code for A236854.

;; With memoizing definec-macro.
(definec (A257729 n) (cond ((<= n 1) n) ((= 1 (A010051 n)) (A065091 (A257729 (A000720 n)))) (else (A065090 (+ 1 (A257729 (A065855 n)))))))
;; Alternatively, by composing other permutations:
(define (A257729 n) (A257728 (A246377 n)))

a(1) = 1; if A010051(n) = 1 [i.e., if n is a prime], then a(n) = A065091(a(A000720(n))), otherwise a(n) = A065090(1+a(A065855(n))).
As a composition of other permutations:
a(n) = A257728(A246377(n)).
a(n) = A257802(A257731(n)).

cp's OEIS Frontend

A246370 a(1)=0, a(p_n) = 1 + a(n), a(c_n) = a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n); Also number of nonleading 0-bits in the binary representation of A135141(n).

Views

Author

Keywords

Examples

Links

Crossrefs

Formula

A257731 Permutation of natural numbers: a(1) = 1, a(prime(n)) = lucky(1+a(n)), a(composite(n)) = unlucky(a(n)), where prime(n) = n-th prime number A000040, composite(n) = n-th composite number A002808 and lucky = A000959, unlucky = A050505.

Views

Author

Keywords

Links

Crossrefs

Formula

A373824 Sorted positions of first appearances in the run-lengths (differing by 0) of the run-lengths (differing by 2) of the odd primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A065856 The (2^n)-th composite number.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A246369 a(1)=0, a(p_n) = a(n), a(c_n) = 1 + a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n); Also one less than the binary weight of terms of A135141.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A246379 Permutation of natural numbers: a(1) = 1, a(p_n) = A003961(1+a(n)), a(c_n) = 2*a(n), where p_n = n-th prime = A000040(n), c_n = n-th composite number = A002808(n), and A003961(n) shifts the prime factorization of n one step towards larger primes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A072731 Difference of numbers of composite and prime numbers <= n.

Views

Author

Keywords

Comments

Crossrefs

Formula

A101256 Sum of composites <= n.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula

A120389 a(n) is such that the a(n)-th composite number is (n-th prime)^2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple