[go: up one dir, main page]

login
A025703
Index of 4^n within sequence of numbers of form 4^i*6^j.
2
1, 2, 4, 7, 11, 15, 20, 26, 33, 40, 48, 57, 67, 78, 89, 101, 114, 128, 142, 157, 173, 190, 208, 226, 245, 265, 286, 307, 329, 352, 376, 400, 425, 451, 478, 506, 534, 563, 593, 624, 655, 687, 720, 754, 789, 824, 860, 897, 935, 973, 1012, 1052, 1093, 1135, 1177, 1220
OFFSET
0,2
COMMENTS
First differs from A025709 at a(84).
LINKS
FORMULA
a(n) = n + 1 + Sum(j= 1 .. n, floor(j*log[6](4))). - Robert Israel, May 10 2015
MAPLE
N:= 200: # to get a(0) to a(N)
[$1..N+1] + ListTools:-PartialSums([seq(floor(j*log[6](4)), j=0..N)]); # Robert Israel, May 10 2015
PROG
(PARI) a(n)=my(N=1); n+1+sum(i=1, n, logint(N*=4, 6)); \\ Charles R Greathouse IV, Jan 11 2018
(PARI) first(n)=my(s, N=1/4); vector(n+1, i, s+=logint(N*=4, 6)+1) \\ Charles R Greathouse IV, Jan 11 2018
CROSSREFS
Cf. A025709.
Sequence in context: A078617 A199085 A247184 * A025709 A036700 A025719
KEYWORD
nonn,easy
EXTENSIONS
Edited and offset corrected by Robert Israel, May 10 2015
STATUS
approved