[go: up one dir, main page]

login
A216287
Decades whose prime pattern repeat in the next decade.
2
37, 78, 113, 124, 133, 134, 139, 154, 167, 180, 218, 234, 248, 276, 288, 291, 310, 314, 323, 331, 347, 374, 418, 430, 436, 444, 476, 484, 499, 512, 524, 532, 536, 545, 558, 560, 575, 596, 609, 616, 624, 640, 648, 650, 674, 692, 696, 706, 708, 713, 717, 726
OFFSET
1,1
FORMULA
a(n) >> n log^2 n. - Charles R Greathouse IV, Sep 07 2012
a(n) = A219999(n) - 1. - V. Raman, Dec 08 2012
MATHEMATICA
ps0 = {2, 3, 5, 7}; t = {}; Do[ps1 = Select[Range[10 n, 10 n + 9], PrimeQ]; If[Length[ps0] == Length[ps1] && ps0 + 10 == ps1, AppendTo[t, n - 1]]; ps0 = ps1, {n, 2, 1000}]; t (* T. D. Noe, Sep 03 2012 *)
PROG
(PARI) isok(i)=isprime(10*i+1)==isprime(10*i+11) && isprime(10*i+3)==isprime(10*i+13) && isprime(10*i+7)==isprime(10*i+17) && isprime(10*i+9)==isprime(10*i+19) \\ V. Raman, Dec 08 2012
CROSSREFS
Cf. A190639.
Cf. A219999 (upper decade).
Sequence in context: A085959 A145936 A071884 * A216329 A298324 A346559
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 03 2012
STATUS
approved