login
A142332
Primes congruent to 38 mod 45.
2
83, 173, 263, 353, 443, 983, 1163, 1433, 1523, 1613, 1973, 2063, 2153, 2243, 2333, 2423, 2693, 2963, 3323, 3413, 3593, 3863, 4133, 4493, 4583, 4673, 4943, 5303, 5393, 5483, 5573, 5843, 6113, 6203, 6473, 6563, 6653, 6833, 7013, 7103, 7193, 7283, 7643, 7823
OFFSET
1,1
COMMENTS
Also primes with digital root 2 and last digit 3. - J. W. Helkenberg, Oct 27 2011
LINKS
MATHEMATICA
Select[Prime[Range[1200]], MemberQ[{38}, Mod[#, 45]]&] (* Vincenzo Librandi, Aug 26 2012 *)
Select[Range[38, 8000, 45], PrimeQ] (* Harvey P. Dale, Aug 10 2020 *)
PROG
(PARI) forprime(p=2, 1e4, if(p%45==38, print1(p", "))) \\ Charles R Greathouse IV, Oct 31 2011
(Magma) [p: p in PrimesUpTo(10000) | p mod 45 eq 38]; // Vincenzo Librandi, Aug 26 2012
CROSSREFS
Cf. A000040.
Sequence in context: A136079 A118359 A084866 * A111078 A106962 A137364
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jul 11 2008
STATUS
approved