A114042 Numbers n such that A072473(n)=A072473(n+1).

32, 42, 46, 47, 56, 58, 61, 66, 71, 74, 76, 97, 103, 114, 118, 126, 127, 128, 161, 177, 180, 186, 195, 205, 232, 233, 267, 271, 290, 321, 326, 329, 331, 347, 359, 368, 370, 372, 383, 416, 423, 432, 437, 456, 508, 518, 520, 593, 594, 607, 633, 666, 675, 709

Offset: 1

Author

Zak Seidov, Feb 01 2006

Keywords

• nonn

Comments

A072473: a(n) = p(2n) - p(n), where p(k) is the k-th prime.

Usually A072473(n) < A072473(n+1), only rarely this is not the case. Cf. A072473 a(n)=p(2n)-p(n), where p(k) is the k-th prime, A115867 numbers n such that A072473(n)=A072473(n+1).

Crossrefs

Cf. A072473, A115867.

Programs

Mathematica

s={};Do[If[Prime[2n]-Prime[n]==Prime[2(n+1)]-Prime[n+1],AppendTo[s,n]],{n,1000}];s
SequencePosition[Table[Prime[2n]-Prime[n],{n,800}],{x_,x_}][[;;,1]] (* Harvey P. Dale, Jun 19 2024 *)

Extensions

Entry revised by Robert G. Wilson v, Mar 16 2006