# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a354467
Showing 1-1 of 1

%I A354467 #14 Jul 03 2022 09:24:37
%S A354467 1,13,37,61,73,97,109,157,169,181,193,229,241,277,313,337,349,373,397,
%T A354467 409,421,433,457,481,541,577,601,613,661,673,709,733,757,769,793,829,
%U A354467 853,877,937,949,997,1009,1021,1033,1069,1093,1117,1129,1153,1201,1213
%N A354467 Positive integers whose prime factors are congruent to 1 (mod 12).
%C A354467 All the prime factors of each term in this sequence are terms of A068228.
%t A354467 Select[Range[10000], Count[Mod[First /@ FactorInteger[#], 12], 1] == Length[FactorInteger[#]] &]
%o A354467 (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
%Y A354467 Cf. A068228.
%K A354467 nonn
%O A354467 1,2
%A A354467 _Steven Lu_, Jun 01 2022

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE