%I #19 Apr 03 2023 10:36:10

%S 0,20,30,42,44,50,60,62,78,98,102,110,120,128,144,158,162,170,174,180,

%T 182,188,194,198,210,240,242,252,258,260,264,272,294,302,314,348,350,

%U 368,380,392,404,408,432,450,462,470,482,492,498

%N Numbers k such that 151*k + 149 is prime.

%C 149 and 151 are twin primes.

%H Daniel Starodubtsev, <a href="/A108030/b108030.txt">Table of n, a(n) for n = 1..10000</a>

%H Chris Caldwell, <a href="https://t5k.org/lists/small/1ktwins.txt">The First 1,008 Twin Primes</a>.

%e If k=98 then 151*k + 149 = 14947 (prime).

%t Select[Range[0, 500], PrimeQ[151*# + 149] &] (* _Stefan Steinerberger_, Mar 03 2006 *)

%o (PARI) is(n)=isprime(151*n+149) \\ _Charles R Greathouse IV_, Jun 06 2017

%K nonn,easy

%O 1,2

%A _Parthasarathy Nambi_, May 31 2005

%E More terms from _Stefan Steinerberger_, Mar 03 2006