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.

A062672 Composite and every divisor (except 1) contains the digit 5.

This page as a plain text file.
%I A062672 #15 Jan 22 2023 15:45:29
%S A062672 25,125,265,295,625,755,785,1255,1285,1325,1475,1765,1795,2285,2515,
%T A062672 2545,2605,2615,2705,2735,2785,2815,2845,2855,2885,2935,2965,2995,
%U A062672 3125,3265,3295,3755,3775,3785,3925,4265,4285,4295,4765,5255,5755,5765,6275
%N A062672 Composite and every divisor (except 1) contains the digit 5.
%H A062672 Amiram Eldar, <a href="/A062672/b062672.txt">Table of n, a(n) for n = 1..10000</a>
%e A062672 25 has divisors 1, 5 and 25, all of which contain the digit 5.
%t A062672 fQ[n_, dgt_] := Union[ MemberQ[#, dgt] & /@ IntegerDigits@ Rest@ Divisors@ n][[1]]; Select[ Range[2, 6300], !PrimeQ[#] && fQ[#, 5] &] (* _Robert G. Wilson v_, Jun 11 2014 *)
%t A062672 Select[Range[6300],CompositeQ[#]&&AllTrue[Rest[Divisors[#]],DigitCount[ #,10,5]> 0&]&] (* _Harvey P. Dale_, Jan 22 2023 *)
%Y A062672 Cf. A062653, A062664, A062667, A062668, A062669, A062670, A062671, A062673, A062674, A062675, A062676, A062677, A062678, A062679, A062680.
%K A062672 base,easy,nonn
%O A062672 1,1
%A A062672 _Erich Friedman_, Jul 04 2001
%E A062672 Offset corrected by _Amiram Eldar_, Nov 07 2019