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.

A062674 Composite and every divisor (except 1) contains the digit 6.

This page as a plain text file.
%I A062674 #15 Nov 07 2019 05:18:39
%S A062674 16043,16409,17621,26569,36661,37637,39467,40267,40669,41663,42869,
%T A062674 45761,46297,46421,46909,52643,61289,64721,64789,64843,65209,69169,
%U A062674 71623,72361,75469,76121,76987,91769,96521,97661,97963,100367,101369
%N A062674 Composite and every divisor (except 1) contains the digit 6.
%H A062674 Amiram Eldar, <a href="/A062674/b062674.txt">Table of n, a(n) for n = 1..10000</a>
%e A062674 26569 has divisors 163 and 26569, all of which contain the digit 6.
%t A062674 Select[Range[2,102000],!PrimeQ[#]&&And@@(MemberQ[IntegerDigits[#], 6]&/@ Rest[Divisors[#]])&] (* _Harvey P. Dale_, May 26 2013 *)
%t A062674 fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 101400], !PrimeQ[#] && fQ[#, 6] &] (* _Robert G. Wilson v_, Jun 11 2014 *)
%Y A062674 Cf. A062653, A062664, A062667, A062668, A062669, A062670, A062671, A062672, A062673, A062675, A062676, A062677, A062678, A062679, A062680.
%K A062674 base,easy,nonn
%O A062674 1,1
%A A062674 _Erich Friedman_, Jul 04 2001
%E A062674 Offset corrected by _Amiram Eldar_, Nov 07 2019