|
%I #14 Jun 01 2023 03:13:45
%S 1,1156,111556,11115556,111112681,111111555556,11111115555556,
%T 1111111155555556,111111111555555556,11111111115555555556,
%U 111111111113333185156,11111111111122500004921,11111111111115555555555556,111111111111119590793871025,11111111111111115805344390916,11111111111111115805344390916,111111111111111115889741773581604,11111111111111111167337156002376484,11111111111111111115555555555555555556,1111111111111111111155555555555555555556
%N Smallest square starting with a string of n 1's.
%H Robert Israel, <a href="/A034979/b034979.txt">Table of n, a(n) for n = 1..498</a>
%F a(n) <= A102807(n). - _Robert Israel_, May 31 2023
%p f:= proc(n) local x,k,s;
%p x:= (10^n-1)/9;
%p for k from 0 do
%p s:= ceil(sqrt(10^k*x))^2;
%p if s < (x+1)*10^k then return s fi
%p od
%p end proc:
%p map(f, [$1..20]); # _Robert Israel_, May 31 2023
%Y Cf. A034978, A102807.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, Nov 15 1998
%E More terms from Francisco Salinas (franciscodesalinas(AT)hotmail.com), Dec 23 2001
|
