A263011 Numbers D == 1 (mod 8), not a square, and if composite without prime factors 3 or 5 (mod 8).
17, 41, 73, 89, 97, 113, 137, 161, 193, 217, 233, 241, 257, 281, 313, 329, 337, 353, 401, 409, 433, 449, 457, 497, 521, 553, 569, 577, 593, 601, 617, 641, 673, 697, 713, 721, 761, 769, 809, 833, 857, 881, 889, 929, 937, 953, 977, 1009, 1033, 1049, 1057, 1081, 1097, 1129, 1153, 1169, 1193, 1201, 1217
Offset: 1
References
- T. Nagell, Introduction to Number Theory, Chelsea Publishing Company, New York, 1964.
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[8 Range@ 154 + 1, Or[PrimeQ@ #, CompositeQ@ # && AllTrue[Union@ Mod[First /@ FactorInteger@ #, 8], ! MemberQ[{3, 5}, #] &]] && ! IntegerQ@ Sqrt@ # &] (* Michael De Vlieger, Dec 11 2015, Version 10 *)
Comments