The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A216306 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A216306

Values of k such that 10*k+3 and 10*k+7 alone are prime between 10*k and 10*k+9.
(history; published version)

#13 by Harvey P. Dale at Tue Jul 20 14:34:46 EDT 2021

STATUS

editing

approved

#12 by Harvey P. Dale at Tue Jul 20 14:34:43 EDT 2021

MATHEMATICA

Select[Range[2000], Boole[PrimeQ[10#+{1, 3, 7, 9}]]=={0, 1, 1, 0}&] (* Harvey P. Dale, Jul 20 2021 *)

STATUS

approved

editing

#11 by Charles R Greathouse IV at Fri Sep 07 01:04:21 EDT 2012

STATUS

editing

approved

#10 by Charles R Greathouse IV at Fri Sep 07 01:04:07 EDT 2012

FORMULA

a(n) >> n log^2 n. - Charles R Greathouse IV, Sep 07 2012

STATUS

approved

editing

#9 by T. D. Noe at Tue Sep 04 00:06:38 EDT 2012

STATUS

editing

approved

#8 by T. D. Noe at Tue Sep 04 00:06:35 EDT 2012

DATA

16, 67, 121, 220, 229, 247, 283, 295, 334, 361, 379, 394, 481, 592, 604, 673, 724, 757, 760, 772, 793, 844, 880, 913, 988, 1024, 1066, 1108, 1144, 1159, 1186, 1192, 1234, 1243, 1303, 1318, 1396, 1417, 1453, 1465, 1471, 1501, 1507, 1537, 1549, 1660, 1762, 1858, 1879, 2011, 2017, 2032, 2206, 2230, 2278, 2413, 2476

STATUS

approved

editing

#7 by T. D. Noe at Tue Sep 04 00:06:18 EDT 2012

STATUS

editing

approved

#6 by T. D. Noe at Tue Sep 04 00:06:14 EDT 2012

MATHEMATICA

t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 3, 10*n + 7}, AppendTo[t, n]], {n, 0, 2476}]; t (* T. D. Noe, Sep 04 2012 *)

STATUS

proposed

editing

#5 by V. Raman at Mon Sep 03 18:01:51 EDT 2012

STATUS

editing

proposed

#4 by V. Raman at Mon Sep 03 18:00:06 EDT 2012

LINKS

V. Raman, <a href="/A216306/b216306.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

proposed

editing