A094179 Numbers congruent to 3 mod 4 which are divisible only by primes congruent to 3 mod 4.

3, 7, 11, 19, 23, 27, 31, 43, 47, 59, 63, 67, 71, 79, 83, 99, 103, 107, 127, 131, 139, 147, 151, 163, 167, 171, 179, 191, 199, 207, 211, 223, 227, 231, 239, 243, 251, 263, 271, 279, 283, 307, 311, 331, 343, 347, 359, 363, 367, 379, 383, 387, 399, 419, 423, 431

Offset: 1

Author

Lekraj Beedassy, May 06 2004

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Intersection of A004614 and A004767; intersection of A004614 and A026424.

Cf. A094180.

Programs

Mathematica

Select[Range[3,431,4],Union[Mod[Transpose[FactorInteger[#]][[1]],4]] == {3}&] (* Harvey P. Dale, Apr 28 2012 *)

PARI

{forstep(n=3,440,4,fac=factor(n);if(vecmin(vector(matsize(fac)[1],j,fac[j,1])%4)==3,print1(n,",")))} \\ Klaus Brockhaus, May 08 2004

PARI

is(n)=if(n%4<3, return(0)); Set(factor(n)[,1]%4)==[3] \\ Charles R Greathouse IV, Jan 20 2022

Extensions

More terms from Klaus Brockhaus, May 08 2004