A176601 Primes p that p//13 and p//31 are consecutive primes.

19, 853, 2287, 2467, 4243, 4513, 4621, 5431, 5701, 7243, 7477, 7591, 7927, 8221, 8317, 9283, 9439, 9817, 10039, 12781, 13933, 14461, 14923, 15727, 16693, 17443, 18199, 18217, 19207, 20749, 21139, 22147, 23761, 25471, 26701, 26953, 27481, 28111, 28447, 28579

Offset

1,1

Comments

See A176600

Links

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Example

19//13 = 1913 = prime(293), 19//31 = 1931 = prime(294), 19 = prime(8) is 1st term
853//13 = 85313 = prime(8306), 853//31 = 85331 = prime(8307), 853 = prime(147) is 2nd term

Mathematica

okQ[n_]:=Module[{idn=IntegerDigits[n], p13, p31}, p13=FromDigits[ Join[ idn, {1, 3}]]; p31=FromDigits[Join[idn, {3, 1}]]; PrimeQ[p13]&&NextPrime[p13] == p31]; Select[Prime[Range[16000]], okQ] (* Harvey P. Dale, Jan 21 2012 *)

Crossrefs

A168327, A168417, A173836, A174213, A174260, A174355, A174441, A176600

Sequence in context: A369827 A135562 A139194 * A334565 A183473 A217826

Adjacent sequences: A176598 A176599 A176600 * A176602 A176603 A176604

Keyword

base,nonn

Author

Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Apr 21 2010

Extensions

More terms from Harvey P. Dale, Jan 21 2012

Status

approved