|
%I #44 Sep 08 2022 08:46:11
%S 25,40,1390,2965,3730,3835,4120,4225,4890,6165,6200,8020,9035,9720,
%T 9825,10765,12235,12710,13740,15545,20320,20880,21215,22805,24625,
%U 25015,26220,26325,31695,33970,34305,34655,35845,36215,36735,40430,41740,42055,43210,46590
%N Numbers n such that 36n+11, 36(n+1)+11, 36(n+2)+11 and 36(n+3)+11 are prime.
%C All terms are multiples of 5.
%C In all cases 36(n+4)+11 is a multiple of 5 and hence not prime. - _Zak Seidov_, Mar 07 2015
%p A255608:=n->`if`(isprime(36*n+11) and isprime(36*(n+1)+11) and isprime(36*(n+2)+11) and isprime(36*(n+3)+11), n, NULL): seq(A255608(n), n=1..10^5); # _Wesley Ivan Hurt_, Mar 03 2015
%t Select[Range@50000, AllTrue[36 Range[#, # + 3] + 11, PrimeQ] &] (* _Michael De Vlieger_, Mar 03 2015, Version 10 *)
%o (PARI) select(n->isprime(36*n+11) && isprime(36*(n+1)+11) && isprime(36*(n+2)+11) && isprime(36*(n+3)+11), vector(50000, n, n)) \\ _Colin Barker_, Mar 01 2015
%o (Magma) [n: n in [0..50000] | forall{36*n+i: i in [11,47,83,119] | IsPrime(36*n+i)}]; // _Vincenzo Librandi_, Mar 03 2015
%Y Subsequence of A215761.
%K nonn
%O 1,1
%A _Zak Seidov_, Mar 01 2015
|
