The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A100422 Numbers n such that 30*n+{1,7,11,13,17,23,29} are all prime. 2

%I

%S 1,53887,114731,123306,139742,210554,471745,480859,619039,630862,

%T 858929,1075873,1306614,1714945,1913514,2767458,3014285,3454137,

%U 3518243,3699151,3864512,3874291,4274376,4862362,4878329,4937822

%N Numbers n such that 30*n+{1,7,11,13,17,23,29} are all prime.

%C Values are 1 mod 7.

%p a:= proc(n) option remember;

%p local m;

%p if n=1 then 1

%p else for m from 30*(a(n-1)+7) by 210

%p while not (isprime (m+1) and isprime (m+7) and

%p isprime (m+11) and isprime (m+13) and

%p isprime (m+17) and isprime (m+23) and

%p isprime (m+29))

%p do od; m/30

%p fi

%p end:

%p seq (a(n), n=1..10);

%t Select[Range[5000000],And@@PrimeQ/@(30(#)+{1,7,11,13,17,23,29})&] (* _Harvey P. Dale_, Feb 23 2011 *)

%o (MAGMA) [ n: n in [0..5000000] | forall{ q: q in [1, 7, 11, 13, 17, 23, 29] | IsPrime(30*n+q) } ]; // Klaus Brockhaus, Feb 23 2011

%Y Cf. A005776, A007775, A076205, A100418-A100423.

%K easy,nonn

%O 1,2