A128039 -id:A128039 - cp's OEIS frontend

A130642 Numbers n such that 1 + Sum{k=1..n/2} A001223(2k-1)*(-1)^k = 0.

2, 6, 14, 190, 194, 200, 306, 462, 468, 474, 478, 490, 560, 1208, 1890, 1938, 23716, 23850, 25226, 25834, 25968, 26642, 26650, 26998, 48316, 311888, 311922, 313946, 331540, 331762, 331782, 377078, 377518, 377666, 377674, 377748, 378422, 378428

Offset: 1

Manuel Valdivia, Jun 20 2007

Sequence has 170 terms < 10^8.

Being prime(n) = 1 + Sum{k=1..n-1}A000040(k)*(-1)^Floor(k/2), for n/2 odd and, prime(n) = (1 + Sum{k=1..n- 1}A000040(k)*(-1)^Floor(k/2))*(-1), for n/2 even.

			1 + ( -A001223(1)) = 1+(-1) = 0, hence 2 is a term.
1 + ( -A001223(1) + A001223(3) - A001223(5)) = 1+(-1+2-2) = 0, hence 6 is a term.

Cf. A127596, A128039, A001223, A000101, A002386.

S=0; a=0; Do[S=S+(Prime[2*k]-Prime[2*k-1])*(-1)^k; If[1+S==0, a++; Print[a, " ", 2*k]], {k, 1, 10^8, 1}]

A130643 Numbers n such that 1 - Sum{k=1..n/2} A001223(2k-1)*(-1)^k = 0.

Original entry on oeis.org

4, 8, 12, 22, 38, 302, 308, 464, 472, 476, 1186, 1884, 2006, 2026, 2106, 23636, 23656, 23698, 25984, 25990, 26706, 26924, 27000, 311914, 311938, 313866, 313880, 331676, 332002, 332676, 377102, 377634, 377670, 379026, 379090, 379108, 387618, 389076

Offset: 1

Manuel Valdivia, Jun 20 2007

Sequence has 177 terms < 10^8.

Being prime(n) = 1 - Sum{k=1..n-1}A000040(k)*(-1)^Floor(k/2), for n/2 even and, prime(n) = (1 - Sum{k=1..n- 1}A000040(k)*(-1)^Floor(k/2))*(-1), for n/2 odd.

			1 - ( -A001223(1) + A001223(3)) = 1-(-1+2) = 0, hence 4 is a term.
1 - ( -A001223(1) + A001223(3) - A001223(5) + A001223(7)) = 1-(-1+2-2+2) = 0, hence 8 is a term.

Cf. A127596, A128039, A001223, A000101, A002386.

S=0; a=0; Do[S=S+(Prime[2*k]-Prime[2*k-1])*(-1)^k; If[1-S==0, a++; Print[a, " ", 2*k]], {k, 1, 10^8, 1}]

cp's OEIS Frontend

A130642 Numbers n such that 1 + Sum{k=1..n/2} A001223(2k-1)*(-1)^k = 0.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica