A142398 Primes congruent to 1 mod 48.

97, 193, 241, 337, 433, 577, 673, 769, 1009, 1153, 1201, 1249, 1297, 1489, 1777, 1873, 2017, 2113, 2161, 2593, 2689, 2833, 3121, 3169, 3217, 3313, 3361, 3457, 3697, 3793, 3889, 4129, 4177, 4273, 4513, 4561, 4657, 4801, 4993, 5233, 5281, 5521, 5569, 5857

Offset: 1

Author

N. J. A. Sloane, Jul 11 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040.

Programs

Magma

[p: p in PrimesUpTo(6000) | p mod 48 eq 1]; // Vincenzo Librandi, Aug 27 2012

Mathematica

lst={};Do[If[Mod[n,48]==1,If[PrimeQ[n],AppendTo[lst,n]]],{n,8!}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 20 2009 *)
Select[Prime[Range[1000]], MemberQ[{1}, Mod[#, 48]] &] (* Vincenzo Librandi, Aug 27 2012 *)
Select[Range[1,6000,48],PrimeQ] (* Harvey P. Dale, Feb 24 2023 *)

PARI

is(n)=isprime(n) && n%48==1 \\ Charles R Greathouse IV, Jul 03 2016

Formula

a(n) ~ 16n log n. - Charles R Greathouse IV, Jul 03 2016