A362011 Numbers k such that 1 < gcd(k, 70) < k and A007947(k) does not divide 70.
6, 12, 15, 18, 21, 22, 24, 26, 30, 34, 36, 38, 42, 44, 45, 46, 48, 52, 54, 55, 58, 60, 62, 63, 65, 66, 68, 72, 74, 75, 76, 77, 78, 82, 84, 85, 86, 88, 90, 91, 92, 94, 95, 96, 102, 104, 105, 106, 108, 110, 114, 115, 116, 118, 119, 120, 122, 124, 126, 130, 132, 133, 134, 135, 136, 138, 142, 144, 145, 146
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 70 arranged in rows, labeled and in large black circles, else gray dots if coprime to 70, purple if k = 1, red if k | 70, and gold if rad(k) | 70.
Programs
-
Mathematica
With[{n = 70}, Select[Range[200], And[! CoprimeQ[#, n], ! Divisible[n, Times @@ FactorInteger[#][[All, 1]]]] & ] ]
Comments