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.

A335401 a(n) is the smallest positive number such that the decimal digits of n*a(n) are all 0, 1, 2 or 3.

This page as a plain text file.
%I A335401 #16 May 06 2022 13:13:51
%S A335401 1,1,1,3,2,2,3,4,37,1,1,1,1,8,2,2,6,74,7,1,1,1,1,5,4,5,49,4,7,1,1,1,1,
%T A335401 3,6,37,3,29,8,3,3,5,7,3,74,5,26,25,27,2,2,6,4,43,2,2,23,4,17,2,2,5,
%U A335401 21,5,2,2,3,15,19,3,3,31,14,3,4,132,3,4,27,4,41
%N A335401 a(n) is the smallest positive number such that the decimal digits of n*a(n) are all 0, 1, 2 or 3.
%C A335401 If a(n) = k, then a(10n) = k.
%C A335401 a(n) = 1 iff n is in A007090; hence, except for a(1) = a(2) = a(3) = 1, the terms 1 always appear in strings of 4 consecutive 1's.
%C A335401 Records occur for n: 1, 4, 8, 9, 18, 76,  ...
%F A335401 a(n) = A334914(n)/n.
%e A335401 a(9)= 37 because 9*37=333 is the smallest multiple of 9 whose decimal digits are all 0, 1, 2 or 3.
%t A335401 a[n_] := Block[{k = 1}, While[Max@ IntegerDigits[k n] > 3, k++]; k]; Array[a, 81] (* _Giovanni Resta_, Jun 06 2020 *)
%o A335401 (PARI) a(n) = my(k=1); while(vecmax(digits(k*n))>3, k++); k; \\ _Michel Marcus_, Jun 08 2020
%Y A335401 Cf. A007090, A334914.
%Y A335401 Cf. A079339 (similar, with digits 0 and 1), A181061 (similar, with digits 0, 1 and 2).
%K A335401 nonn,base
%O A335401 1,4
%A A335401 _Bernard Schott_, Jun 06 2020
%E A335401 More terms from _Giovanni Resta_, Jun 06 2020