%I A082127
%S A082127 3,3,3,2,3,7,8,12,18,27,43,62,93,142,213,317,478,717,1073,1612,2418
%N A082127 Rounded base-3 logarithm of A082126(n).
%o A082127 (PARI) p=19:for(n=1,50,v=divisors(p):r=sqrt(p):t=0:for(k=1,matsize(v)[2],
if(v[k]>=r,t=k:break)): if(v[t]^2==p,u=t,u=t-1): if(v[t]-v[u]<2,u=u-1:t=t+1):print1(round(log(v[t]-v[u])/
log(3))","):p=p*(v[t]-v[u]))
%Y A082127 Cf. A082129.
%Y A082127 Sequence in context: A166007 A087497 A085767 this_sequence A031354 A033700
A122916
%Y A082127 Adjacent sequences: A082124 A082125 A082126 this_sequence A082128 A082129
A082130
%K A082127 nonn,hard
%O A082127 0,1
%A A082127 Ralf Stephan (ralf(AT)ark.in-berlin.de), Apr 04 2003
|