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.

A337084 a(n) is the smallest nonzero digit d whose product d*n will contain the digit d, or 0 if no such digit exists.

This page as a plain text file.
%I A337084 #31 Sep 21 2020 12:12:05
%S A337084 1,0,5,0,5,2,5,0,5,1,1,1,1,1,1,1,1,1,1,0,1,9,5,0,5,2,5,6,5,5,1,0,5,0,
%T A337084 4,2,4,0,5,0,1,0,5,3,3,2,5,8,5,5,1,0,5,7,5,2,5,0,5,2,1,2,2,2,5,2,5,7,
%U A337084 5,5,1,0,5,0,5,2,3,3,3,0,1,7
%N A337084 a(n) is the smallest nonzero digit d whose product d*n will contain the digit d, or 0 if no such digit exists.
%C A337084 a(n) = 1 for all numbers that contain the digit 1.
%C A337084 For all numbers with 6 followed by a digit in the 0-4 interval, a(n) is 1 or 2.
%C A337084 For all numbers with an odd digit followed by a 0, a(n) is in the 1-5 interval.
%e A337084 a(22) = 9 because none of 22*1 to 22*8 contain the digit that we multiplied 22 by to get the product, but 22*9 = 198 which contains the digit 9.
%t A337084 a[n_] := Module[{d = 1}, While[d < 10 && ! MemberQ[IntegerDigits[n*d], d], d++]; If[d < 10, d, 0]]; Array[a, 100] (* _Amiram Eldar_, Aug 15 2020 *)
%o A337084 (PARI) a(n) = {for (d=1, 9, if (#select(x->(x==d), digits(n*d)), return (d));); return (0);} \\ _Michel Marcus_, Sep 13 2020
%Y A337084 Indices of 0's give A296606.
%Y A337084 Indices of 1's give A011531.
%K A337084 nonn,base
%O A337084 1,3
%A A337084 _J. Lowell_, Aug 14 2020