cp's OEIS Frontend

A134517 Primes of the form 24*k - 1.

%I A134517 #33 Jan 01 2023 04:17:49
%S A134517 23,47,71,167,191,239,263,311,359,383,431,479,503,599,647,719,743,839,
%T A134517 863,887,911,983,1031,1103,1151,1223,1319,1367,1439,1487,1511,1559,
%U A134517 1583,1607,1823,1847,1871,2039,2063,2087,2111,2207,2351,2399,2423,2447,2543
%N A134517 Primes of the form 24*k - 1.
%C A134517 Corresponding values of k are in A131210.
%C A134517 Is this the same sequence as A141376?
%C A134517 Primes in A183010. - _Omar E. Pol_, Oct 08 2011
%C A134517 Inert rational primes in the fields Q(sqrt(-1)), Q(sqrt(-2)), Q(sqrt(-3)). - _Eyal Gruss_, Nov 30 2022
%H A134517 Muniru A Asiru, <a href="/A134517/b134517.txt">Table of n, a(n) for n = 1..5000</a>
%F A134517 a(n) = A183010(A131210(n)). - _Omar E. Pol_, Nov 04 2017
%p A134517 select(isprime,[seq(24*n-1,n=1..120)]); # _Muniru A Asiru_, Mar 04 2018
%t A134517 Select[Prime[Range[1000]],Mod[ #,24]==23&]
%t A134517 Select[24*Range[200]-1,PrimeQ] (* _Harvey P. Dale_, Jun 17 2018 *)
%o A134517 (GAP) Filtered(List([1..120],n->24*n-1),IsPrime); # _Muniru A Asiru_, Mar 04 2018
%o A134517 (PARI) lista(nn) = for(k=1, nn, if(isprime(p=24*k-1), print1(p", "))) \\ _Altug Alkan_, Mar 04 2018
%Y A134517 Cf. A131210, A183010.
%Y A134517 Intersection of A002145, A003627, A045355.
%K A134517 nonn
%O A134517 1,1
%A A134517 _Zak Seidov_, Oct 29 2007