A038510 Composite numbers with smallest prime factor >= 7.
49, 77, 91, 119, 121, 133, 143, 161, 169, 187, 203, 209, 217, 221, 247, 253, 259, 287, 289, 299, 301, 319, 323, 329, 341, 343, 361, 371, 377, 391, 403, 407, 413, 427, 437, 451, 469, 473, 481, 493, 497, 511, 517, 527, 529, 533, 539, 551, 553, 559, 581, 583
Offset: 1
Keywords
References
- J. H. Silverman, A Friendly Introduction to Number Theory, 2nd Edn. "Appendix A: Factorization of Small Composite Integers", Prentice Hall NY 2001.
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000
- Alf van der Poorten, Kurt Thomsen, and Mark Wiebe, A Curious Cubic Identity and Self-similar Sums of Squares, 2006, pp. 73-74.
Crossrefs
Programs
-
Maple
for n from 1 to 583 do if n^4 mod 30 = 1 and not isprime(n) then print(n)fi od; # Gary Detlefs, Dec 09 2012
-
Mathematica
Select[Range[1000], ! PrimeQ[#] && FactorInteger[#][[1, 1]] >= 7 &] (* T. D. Noe, Mar 16 2013 *)
-
PARI
is(n)=gcd(n,30)==1 && !isprime(n) \\ Charles R Greathouse IV, Dec 09 2012
Formula
a(n) ~ 3.75n. - Charles R Greathouse IV, Dec 09 2012
Extensions
Corrected by Ralf Stephan, Apr 04 2003
Comments