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.
%I A025703 #25 Jul 06 2025 12:36:04 %S A025703 1,2,4,7,11,15,20,26,33,40,48,57,67,78,89,101,114,128,142,157,173,190, %T A025703 208,226,245,265,286,307,329,352,376,400,425,451,478,506,534,563,593, %U A025703 624,655,687,720,754,789,824,860,897,935,973,1012,1052,1093,1135,1177,1220 %N A025703 Index of 4^n within sequence of numbers of form 4^i*6^j. %C A025703 First differs from A025709 at a(84). %C A025703 Positions of zeros in A025658. - _R. J. Mathar_, Jul 06 2025 %H A025703 Robert Israel, <a href="/A025703/b025703.txt">Table of n, a(n) for n = 0..10000</a> %F A025703 a(n) = n + 1 + Sum(j= 1 .. n, floor(j*log[6](4))). - _Robert Israel_, May 10 2015 %p A025703 N:= 200: # to get a(0) to a(N) %p A025703 [$1..N+1] + ListTools:-PartialSums([seq(floor(j*log[6](4)),j=0..N)]); # _Robert Israel_, May 10 2015 %o A025703 (PARI) a(n)=my(N=1); n+1+sum(i=1, n, logint(N*=4, 6)); \\ _Charles R Greathouse IV_, Jan 11 2018 %o A025703 (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 %Y A025703 Cf. A025618, A025709. %K A025703 nonn,easy %O A025703 0,2 %A A025703 _David W. Wilson_ %E A025703 Edited and offset corrected by _Robert Israel_, May 10 2015