|
|
A094179
|
|
Numbers congruent to 3 mod 4 which are divisible only by primes congruent to 3 mod 4.
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[3, 431, 4], Union[Mod[Transpose[FactorInteger[#]][[1]], 4]] == {3}&] (* Harvey P. Dale, Apr 28 2012 *)
|
|
PROG
|
(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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|