A362012 Numbers k such that 1 < gcd(k, 105) < k and A007947(k) does not divide 105.
6, 10, 12, 14, 18, 20, 24, 28, 30, 33, 36, 39, 40, 42, 48, 50, 51, 54, 55, 56, 57, 60, 65, 66, 69, 70, 72, 77, 78, 80, 84, 85, 87, 90, 91, 93, 95, 96, 98, 99, 100, 102, 108, 110, 111, 112, 114, 115, 117, 119, 120, 123, 126, 129, 130, 132, 133, 138, 140, 141, 144, 145, 150, 153, 154, 155, 156, 159, 160
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
- Michael De Vlieger, Diagram showing numbers k in this sequence instead as k mod 105, in black, else white if k is coprime to 105, purple if k = 1, red if k | 105, and gold if rad(k) | 105, magnification 10X.
Programs
-
Mathematica
With[{n = 105}, Select[Range[200], And[! CoprimeQ[#, n], ! Divisible[n, Times @@ FactorInteger[#][[All, 1]]]] & ] ]
Comments