A092256 Nonprimes of form 6k+5.
35, 65, 77, 95, 119, 125, 143, 155, 161, 185, 203, 209, 215, 221, 245, 275, 287, 299, 305, 323, 329, 335, 341, 365, 371, 377, 395, 407, 413, 425, 437, 455, 473, 485, 497, 515, 527, 533, 539, 545, 551, 575, 581, 605, 611, 623, 629, 635, 665, 671, 689, 695
Offset: 1
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..10000
Programs
-
Maple
for k from 0 to 100 do if(not isprime(6*k+5))then printf("%d, ",6*k+5); fi: od: # Nathaniel Johnston, May 18 2011
-
Mathematica
Do[If[ !PrimeQ[n]&&Equal[Mod[n, 6], 5 ], Print[n]], {n, 1, 1000}] Select[6*Range[150]+5,!PrimeQ[#]&] (* Harvey P. Dale, Jan 23 2012 *)