cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A362010 Numbers k such that 1 < gcd(k, 42) < k and A007947(k) does not divide 42.

This page as a plain text file.
%I A362010 #14 Dec 02 2023 09:12:08
%S A362010 10,15,20,22,26,30,33,34,35,38,39,40,44,45,46,50,51,52,57,58,60,62,66,
%T A362010 68,69,70,74,75,76,77,78,80,82,86,87,88,90,91,92,93,94,99,100,102,104,
%U A362010 105,106,110,111,114,116,117,118,119,120,122,123,124,129,130,132,133,134,135,136,138,140,141,142
%N A362010 Numbers k such that 1 < gcd(k, 42) < k and A007947(k) does not divide 42.
%C A362010 The asymptotic density of this sequence is 5/7. - _Amiram Eldar_, Dec 02 2023
%H A362010 Michael De Vlieger, <a href="/A362010/b362010.txt">Table of n, a(n) for n = 1..10000</a>
%H A362010 Michael De Vlieger, <a href="/A362010/a362010.png">Diagram showing numbers k in this sequence</a> instead as k mod 42, labeled and in large black circles, else gray dots if coprime to 42, purple if k = 1, red if k | 42, and gold if rad(k) | 42.
%F A362010 This sequence is { N \ { A108319 U A206547 } }.
%t A362010 With[{n = 42}, Select[Range[200], And[! CoprimeQ[#, n], ! Divisible[n, Times @@ FactorInteger[#][[All, 1]]]] & ] ]
%Y A362010 Cf. A007947, A108319, A206547.
%K A362010 nonn
%O A362010 1,1
%A A362010 _Michael De Vlieger_, Apr 04 2023