|
%I #10 Nov 27 2019 05:29:45
%S 77,119,161,203,221,287,299,329,371,377,413,437,497,533,539,551,581,
%T 611,623,689,707,749,767,779,791,833,893,917,923,959,1001,1007,1043,
%U 1079,1121,1127,1157,1169,1211,1253,1271,1313,1337,1349,1379,1391,1421,1457
%N Numbers of the form 6k-1 with the least prime divisor of the form 6m+1.
%C By definition, all terms are composite numbers.
%H Amiram Eldar, <a href="/A176278/b176278.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[11,2581,6],1==Mod[FactorInteger[ # ][[1,1]],6]&] (* _Zak Seidov_, Apr 14 2010 *)
%o (PARI) isok(n) = ((n % 6) == 5) && ((vecmin(factor(n)[,1]) % 6) == 1); \\ _Michel Marcus_, Feb 08 2016
%Y Cf. A176275, A176274, A176262, A176258, A176257, A176256, A176255, A108166, A016969, A007528.
%K nonn
%O 1,1
%A _Vladimir Shevelev_, Apr 14 2010
%E Corrected (erroneous 341 deleted) and extended by _Zak Seidov_, Apr 14 2010
|
