|
%I #23 Feb 05 2024 00:55:27
%S 1,2,4,5,7,8,13,14,19,20,22,23,25,29,34,35,37,40,44,47,49,50,53,58,64,
%T 68,70,77,82,83,85,88,89,92,95,97,100,103,104,107,110,118,125,127,128,
%U 133,134,137,139,140,148,152
%N Numbers k such that 8k - 3 is prime.
%H Vincenzo Librandi, <a href="/A005125/b005125.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200], PrimeQ[8# - 3]&] (* _Vincenzo Librandi_, Jan 07 2013 *)
%o (Magma) [n: n in [1..200] | IsPrime(8*n-3)]; // _Vincenzo Librandi_, Jan 07 2013
%o (PARI) is(n)=isprime(8*n-3) \\ _Charles R Greathouse IV_, May 22 2017
%K nonn,easy
%O 1,2
%A _N. J. A. Sloane_
|
