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.

A270037 a(n) = Smallest m >= 3 containing no zeros when represented in any base from 3 through n.

This page as a plain text file.
%I A270037 #11 Mar 10 2016 20:54:51
%S A270037 4,5,7,7,13,13,13,13,13,13,23,23,23,23,23,23,23,23,23,23,43,43,43,43,
%T A270037 43,43,43,43,43,43,43,43,43,43,43,43,43,43,43,43,157,157,157,157,157,
%U A270037 157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157,157
%N A270037 a(n) = Smallest m >= 3 containing no zeros when represented in any base from 3 through n.
%C A270037 It remains to be determined if the sequence is finite.
%C A270037 Every known term in this sequence is in A069575, and every term in A069575 is in this sequence.
%H A270037 Nathan Fox, <a href="/A270037/b270037.txt">Table of n, a(n) for n = 3..618</a>
%t A270037 Table[SelectFirst[Range[3, 10^3], Total@ Map[Function[k, DigitCount[#, k, 0]], Range[3, n]] == 0 &], {n, 3, 80}] /. n_ /; MissingQ@ n -> Nothing (* _Michael De Vlieger_, Mar 10 2016, Version 10.2 *)
%o A270037 (PARI) isok(m, n) = {for (b=3, n, if (! vecmin(digits(m, b)), return (0));); 1;}
%o A270037 a(n) = {my(m = 3); while (! isok(m,n), m++); m;} \\ _Michel Marcus_, Mar 10 2016
%Y A270037 Cf. A069575, A270027, A270038, A216192, A270039, A270040, A270041, A270042, A270043, A270044, A270045.
%K A270037 nonn,base
%O A270037 3,1
%A A270037 _Nathan Fox_, Mar 09 2016