A160910 -id:A160910 - cp's OEIS frontend

A356793 Decimal expansion of sum of squares of reciprocals of lesser twin primes, Sum_{j>=1} 1/(A001359(j))^2.

1, 6, 5, 6, 1, 8, 4, 6, 5, 3, 9, 5

Offset: 0

Artur Jasinski, Sep 04 2022

Alternative definition: sum of squares of reciprocals of primes whose distance from the next prime is equal to 2.
Convergence table:
   k       A001359(k)      Sum_{j=1..k} 1/A001359(j)^2
10000000   3285916169 0.165618465394273171950874120818
20000000   7065898967 0.165618465394707600197099741096
30000000  11044807451 0.165618465394836120901019351544
40000000  15151463321 0.165618465394895965582366015390
50000000  19358093939 0.165618465394930089884704869090
60000000  23644223231 0.165618465394951950670948192842
Using the Hardy-Littlewood prediction of the density of twin primes (see A347278), the contribution to the sum after the last entry in the table above can be estimated as 9.056*10^(-14), making the infinite sum ~= 0.16561846539504... . - Hugo Pfoertner, Sep 28 2022

			0.165618465395...

Jeffrey P.S. Lay, Sign changes in Mertens' first and second theorems, arXiv:1505.03589 [math.NT], 2015.
Mark B. Villarino, Mertens' Proof of Mertens' Theorem, arXiv:math/0504289 [math.HO], 2005.
Marek Wolf, Generalized Brun's constants, IFTUWr 910/97 (1998), 1-15.
Marek Wolf, Some heuristics on the gaps between consecutive primes, arXiv:1102.0481 [math.NT]. 2011.

Cf. A006512, A065421, A077800, A078437, A085548, A096247, A160910, A194098, A209328, A209329, A242301, A242302, A242303, A242304, A306539, A342714.

Cf. A347278.

Data extended to ...3, 9, 5 by Hugo Pfoertner, Sep 28 2022

A342714 Decimal expansion of infinite sum of reciprocals of lesser twin primes, Sum_{n>=1} 1/A001359(n).

Original entry on oeis.org

1, 0, 5, 9, 0, 6, 4, 2, 6

Offset: 1

Artur Jasinski, Mar 19 2021

Alternative definition: infinite sum of reciprocals of primes whose distance to the next prime is equal to 2.

R. J. Mathar gave an estimate of 1.059064 for this constant in a comment at A209328. Dimitris Valianatos estimated the constant as 1.059064266555685... in a comment at A306539.

			Equals 1.05906426...

Cf. A006512, A065421, A077800, A160910, A209328, A209329, A306539.

Equals 1/3 + 1/5 + 1/11 + 1/17 + 1/29 + 1/41 + 1/59 + ...

Equals (A065421 + A306539)/2.

A118064 Decimal expansion of the sum of the reciprocals of the palindromic primes A002385 (Honaker's constant).

Original entry on oeis.org

1, 3, 2, 3, 9, 8, 2, 1, 4, 6, 8, 0, 6

Offset: 1

Martin Renner, May 11 2006

From Robert G. Wilson v, Nov 01 2010: (Start)
n \ sum to 10^n
1.267099567099567099567099567099567099567099567099567099567099567099567
1.320723244590290964212793334437872849720871258315369002493912638038324
1.323748402250648554164425746280035962754669829327727800040192015109270
1.323964105671202458016249150576217276147952428601889817773483085610332
1.323980718065525060936354534562000413901564393192688451911141729415146
1.323982026479475203850120990923294207966175748395470136325039323549015
1.323982136437462724794656629740867909978221153827990721566573347887836
1.323982145891606234777299440047139038371441916546100653011463101470839
1.323982146724859090645464845257681674740147563533254654075059843860490
1.323982146799188851138232927173756400348958236915409881890097448921521
1.323982146805857558347279363344557427339916178257233985191868031567947 (End)

			1.323982146806...

Carlos Rivera, Problems & Puzzles: Puzzle 056 - Honaker's Constant.
Eric Weisstein, Palindromic Prime.

Cf. A002385, A160910, A181442, A050251, A118031, A194097.

(* first obtain nextPalindrome from A007632 *) s = 1/11; c = 1; pp = 1; Do[ While[pp < 10^n, If[PrimeQ@ pp, c++; s = N[s + 1/pp, 64]]; pp = NextPalindrome@ pp]; If[ OddQ@ n, pp = 10^(n + 1); Print[{s, n, c}]], {n, 17}] (* Robert G. Wilson v, May 31 2009 *)
generate[n_] := Block[{id = IntegerDigits@n, insert = {{0}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}}}, FromDigits@ Join[id, #, Reverse@ id] & /@ insert]; sm = N[Plus @@ (1/{2, 3, 5, 7, 11}), 64]; k = 1; Do [While[k < 10^n, sm = N[sm + Plus @@ (1/Select[ generate@k, PrimeQ]), 128]; k++ ]; Print[{2 n + 1, sm}], {n, 9}] (* Robert G. Wilson v, Nov 01 2010 *)

Equals Sum_{p} 1/p, where p ranges over the palindromic primes.

Corrected by Eric W. Weisstein, May 14 2006
More terms from Robert G. Wilson v, Nov 01 2010
Entry revised by N. J. A. Sloane, May 05 2013

A357059 Decimal expansion of sum of squares of reciprocals of primes whose distance to the next prime is equal to 4, Sum_{j>=1} 1/A029710(j)^2.

Original entry on oeis.org

0, 3, 1, 3, 2, 1, 6, 2, 0, 6, 4, 6

Offset: 0

Artur Jasinski, Sep 10 2022

Convergence table:
   k       A029710(k)      Sum_{j=1..k} 1/A029710(j)^2
10000000   3285441223 0.031321620645456519799598611681
20000000   7067090263 0.031321620645890982910821292996
30000000  11044597393 0.031321620646019474620358985896
40000000  15153534937 0.031321620646079307404248696076
50000000  19360462153 0.031321620646113421819579063642
60000000  23647877233 0.031321620646135276227114122713
70000000  28000392817 0.031321620646150384406674037099

			0.031321620646...

Cf. A006512, A023200, A029710, A046132, A065421, A077800, A078437, A085548, A096247, A160910, A194098, A209328, A209329, A242301, A242302, A242303, A242304, A306539, A342714, A356793.

aa = {}; Do[g1[2 n] = 0, {n, 1, 1000}]; Do[g2[2 n] = 0, {n, 1, 1000}]; Do[g3[2 n] = 0, {n, 1, 1000}]; Do[g4[2 n] = 0, {n, 1, 1000}]; Do[g[2 n] = 0, {n, 1, 1000}];
w1 = 3; n = 3; Monitor[While[n < 10^10, w2 = NextPrime[w1]; kk = w2 - w1;
  If[kk < 2000, g[kk] = g[kk] + 1; g1[kk] = g1[kk] + N[1/w1, 1000];g2[kk] = g2[kk] + N[1/w1^2, 1000];g3[kk] = g3[kk] + N[1/w1^3, 1000];g4[kk] = g4[kk] + N[1/w1^4, 1000];
If[IntegerQ[g[kk]/1000000], Print[{n, w1, kk, g[kk]}];If[kk == 4,AppendTo[aa, {n, w1, kk, g[kk], g1[kk], g2[kk], g3[kk], g4[kk]}]]]];w1 = w2; n++], n];aa

A357483 Decimal expansion of sum of squares of reciprocals of primes whose distance to the next prime is equal to 6, Sum_{j>=1} 1/A031924(j)^2.

Original entry on oeis.org

0, 0, 4, 7, 5, 7, 2, 8, 6, 9, 7, 5

Offset: 0

Artur Jasinski, Sep 30 2022

			0.004757286975...

Cf. A031924.

Cf. A085548, A160910, A242301, A356793, A357059.

A357528 Decimal expansion of Sum_{j>=1} 1/A031926(j)^2.

Original entry on oeis.org

0, 0, 0, 1, 8, 3, 9, 3, 0, 8, 5, 1, 7

Offset: 0

Artur Jasinski, Oct 02 2022

			0.000183930851...

Cf. A031926.

Cf. A085548, A160910, A242301, A356793, A357059, A357483.

cp's OEIS Frontend

A356793 Decimal expansion of sum of squares of reciprocals of lesser twin primes, Sum_{j>=1} 1/(A001359(j))^2.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A342714 Decimal expansion of infinite sum of reciprocals of lesser twin primes, Sum_{n>=1} 1/A001359(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A118064 Decimal expansion of the sum of the reciprocals of the palindromic primes A002385 (Honaker's constant).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A357059 Decimal expansion of sum of squares of reciprocals of primes whose distance to the next prime is equal to 4, Sum_{j>=1} 1/A029710(j)^2.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357483 Decimal expansion of sum of squares of reciprocals of primes whose distance to the next prime is equal to 6, Sum_{j>=1} 1/A031924(j)^2.

Views

Author

Keywords

Examples

Crossrefs

A357528 Decimal expansion of Sum_{j>=1} 1/A031926(j)^2.

Views

Author

Keywords

Examples

Crossrefs