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.

A217181 a(n) is the number of digits in the decimal representation of the smallest power of n that contains six consecutive identical digits.

This page as a plain text file.
%I A217181 #13 Jun 21 2022 13:20:05
%S A217181 293,257,293,760,289,148,293,257,7,502,391,365,225,607,293,431,362,
%T A217181 185,8,1184,1104,325,664,1590,398,258,184,524,9,427,684,435,532,170,
%U A217181 749,543,497,713,10,912,630,450,148,1029,385,755,63,432,11,822,347,330,818,537
%N A217181 a(n) is the number of digits in the decimal representation of the smallest power of n that contains six consecutive identical digits.
%C A217181 Number of digits in n^k is equal to floor(1 + k*log_10(n)).
%H A217181 V. Raman, <a href="/A217181/b217181.txt">Table of n, a(n) for n = 2..10000</a>
%t A217181 Table[k = 1; While[d = IntegerDigits[n^k]; ! MemberQ[Partition[Differences[d], 5, 1], {0, 0, 0, 0, 0}], k++]; Length[d], {n, 2, 100}] (* _T. D. Noe_, Oct 03 2012 *)
%t A217181 spn6[n_]:=Module[{k=1},While[SequenceCount[IntegerDigits[n^k],{x_,x_,x_,x_,x_,x_}]< 1,k++];IntegerLength[n^k]]; Array[spn6,55,2] (* _Harvey P. Dale_, Jun 21 2022 *)
%Y A217181 Cf. A217161, A217171.
%K A217181 nonn,base
%O A217181 2,1
%A A217181 _V. Raman_, Sep 27 2012