%I #14 Sep 08 2022 08:45:21
%S 1,3,7,9,13,21,27,31,33,37,39,43,49,51,57,67,73,79,81,87,91,93,109,
%T 111,117,121,133,139,141,147,157,159,163,169,177,181,183,187,193,207,
%U 211,219,223,229,231,237,241,249,259,267,271,277,297,303,319,333,339,343
%N Numbers n such that 7*n + 10 is prime.
%C One less than the entry of A089033 at the same index.
%H Harvey P. Dale, <a href="/A111250/b111250.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=117 then 7*n + 10 = 829 (prime).
%t Select[Range[400],PrimeQ[7#+10]&] (* _Harvey P. Dale_, Mar 25 2021 *)
%o (PARI) for(n=1,453,if(isprime(7*n + 10),print1(n,",")))
%o (Magma) [ n: n in [0..1500] | IsPrime(7*n + 10) ] // _Vincenzo Librandi_, Jan 31 2011
%Y Cf. A105772, A024902, A024900.
%K nonn
%O 1,2
%A _Parthasarathy Nambi_, Oct 31 2005
%E Extended by Lambert Klasen (lambert.klasen(AT)gmx.net), Nov 02 2005
|