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.

A062676 Composite and every divisor (except 1) contains the digit 7.

This page as a plain text file.
%I A062676 #16 Sep 08 2022 08:45:03
%S A062676 497,679,749,799,1207,1379,1739,1799,1897,2479,2627,2701,2779,3337,
%T A062676 3713,3997,4607,4709,4711,4739,4757,4907,5173,5257,5327,5579,5729,
%U A062676 5767,5789,6179,6749,6769,6797,6887,6979,7081,7169,7289,7379,7597,7609,7663
%N A062676 Composite and every divisor (except 1) contains the digit 7.
%H A062676 Amiram Eldar, <a href="/A062676/b062676.txt">Table of n, a(n) for n = 1..10000</a>
%e A062676 799 has divisors 17, 47 and 799, all of which contain the digit 7.
%t A062676 fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 7670], !PrimeQ[#] && fQ[#, 7] &] (* _Robert G. Wilson v_, Jun 11 2014 *)
%o A062676 (Magma) [k:k in [2..8000]|  not IsPrime(k) and forall{d:d in Set(Divisors(k)) diff {1}| 7 in Intseq(d)}];// _Marius A. Burtea_, Nov 07 2019
%Y A062676 Cf. A062653, A062664, A062667, A062668, A062669, A062670, A062671, A062672, A062673, A062674, A062675, A062677, A062678, A062679, A062680.
%K A062676 base,easy,nonn
%O A062676 1,1
%A A062676 _Erich Friedman_, Jul 04 2001
%E A062676 Offset corrected by _Amiram Eldar_, Nov 07 2019