|
%I #27 Sep 08 2022 08:46:18
%S 11,41,71,101,191,281,311,431,461,521,641,821,881,1031,1061,1091,1151,
%T 1301,1451,1481,1721,1871,1931,2081,2111,2141,2381,2591,2711,2801,
%U 3251,3371,3461,3581,3671,3821,3851,4001,4091,4241,4271,4421,4481,4721,4931,5021
%N Lesser of twin primes congruent to 11 (mod 30).
%C The union of [this sequence and A282322] is A132241.
%C The union of [{3, 5}, this sequence, A282323 and A060229] is the lesser of twin primes sequence A001359.
%C The union of [{3, 5, 7}, A282321 to A282326] is the twin primes sequence A001097.
%H Chai Wah Wu, <a href="/A282321/b282321.txt">Table of n, a(n) for n = 1..10000</a>
%p a:={}:
%p for i from 1 to 1229 do
%p if isprime(ithprime(i)+2) and ithprime(i) mod 30 = 11 then
%p a:={op(a),ithprime(i)}:
%p fi:
%p od:
%p a;
%o (Magma) [p: p in PrimesUpTo(5000) | IsPrime(p+2) and p mod 30 eq 11 ]; // _Vincenzo Librandi_, Feb 12 2017
%o (PARI) list(lim)=my(v=List(), p=2); forprime(q=3, lim+2, if(q-p==2 && q%30==13, listput(v, p)); p=q); Vec(v) \\ _Charles R Greathouse IV_, Feb 14 2017
%Y Subset of A001097, A001359, A132232, A132241 and A132247.
%Y Cf. A006512, A232880, A232881, A232882, A282322, A282323, A060229, A060229, A282326.
%K nonn
%O 1,1
%A _Martin Renner_, Feb 11 2017
|
