A082127 Rounded base-3 logarithm of A082126(n).

3, 3, 3, 2, 3, 7, 8, 12, 18, 27, 43, 62, 93, 142, 213, 317, 478, 717, 1073, 1612, 2418

Offset

0,1

Links

Table of n, a(n) for n=0..20.

Prog

(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]))

Crossrefs

Cf. A082129.

Sequence in context: A166007 A087497 A085767 * A031354 A307486 A259301

Adjacent sequences: A082124 A082125 A082126 * A082128 A082129 A082130

Keyword

nonn,hard

Author

Ralf Stephan, Apr 04 2003

Status

approved