OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
FORMULA
a(n) >> n log^2 n. - Charles R Greathouse IV, Sep 07 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
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 03 2012
STATUS
approved