A354467 Positive integers whose prime factors are congruent to 1 (mod 12).

1, 13, 37, 61, 73, 97, 109, 157, 169, 181, 193, 229, 241, 277, 313, 337, 349, 373, 397, 409, 421, 433, 457, 481, 541, 577, 601, 613, 661, 673, 709, 733, 757, 769, 793, 829, 853, 877, 937, 949, 997, 1009, 1021, 1033, 1069, 1093, 1117, 1129, 1153, 1201, 1213

Offset

1,2

Comments

All the prime factors of each term in this sequence are terms of A068228.

Links

Table of n, a(n) for n=1..51.

Mathematica

Select[Range[10000], Count[Mod[First /@ FactorInteger[#], 12], 1] == Length[FactorInteger[#]] &]

Prog

(PARI) isok(m) = my(f=factor(m)); for (k=1, #f~, if ((f[k, 1] % 12) != 1, return(0))); return (1); \\ Michel Marcus, Jun 02 2022

Crossrefs

Cf. A068228.

Sequence in context: A089030 A351537 A351536 * A141122 A068228 A031339

Adjacent sequences: A354464 A354465 A354466 * A354468 A354469 A354470

Keyword

nonn

Author

Steven Lu, Jun 01 2022

Status

approved