The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A060956

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A060956

Leading digit of 3^n.
(history; published version)

#18 by N. J. A. Sloane at Sat May 16 14:22:31 EDT 2020

STATUS

reviewed

approved

#17 by Michel Marcus at Sat Apr 18 07:37:55 EDT 2020

STATUS

proposed

reviewed

Discussion

Sat Apr 18

08:15

Joerg Arndt: The back and forth at stackexchange looks useless to me, did I miss something?

08:40

Dmitry Kamenetsky: Hi Joerg. You can ignore the comments on stackexchange. The main part are the answers to the question. If you know an efficient way to compute a(2020) without a computer then please contribute.

#16 by Dmitry Kamenetsky at Sat Apr 18 06:03:34 EDT 2020

STATUS

editing

proposed

#15 by Dmitry Kamenetsky at Sat Apr 18 06:03:00 EDT 2020

LINKS

Dmitry Kamenetsky, <a href="https://puzzling.stackexchange.com/questions/97179/first-digit-of-32020/">First digit of 3^2020</a>, Puzzling StackExchange.

STATUS

approved

editing

#14 by Joerg Arndt at Tue Jul 03 02:36:42 EDT 2018

STATUS

editing

approved

#13 by Joerg Arndt at Tue Jul 03 02:36:39 EDT 2018

MATHEMATICA

f[n_] := Quotient[3^n, 10^Floor[n*Log[10, 3]]]; Table[ f@n, {n, 0, 104}] (* Robert G. Wilson v, Feb 09 2008 *)

STATUS

proposed

editing

#12 by Michel Marcus at Tue Jul 03 01:56:00 EDT 2018

STATUS

editing

proposed

#11 by Michel Marcus at Tue Jul 03 01:55:55 EDT 2018

FORMULA

a(n) = A000030(A000244(n)). - Michel Marcus, Jul 03 2018

CROSSREFS

Cf. A000030, A000244.

STATUS

proposed

editing

#10 by Jon E. Schoenfield at Tue Jul 03 00:34:33 EDT 2018

STATUS

editing

proposed

#9 by Jon E. Schoenfield at Tue Jul 03 00:34:31 EDT 2018

LINKS

Harry J. Smith, <a href="/A060956/b060956.txt">Table of n, a(n) for n = 0,...,1000</a>

FORMULA

a(n) = [3^n / 10^([log_10(3^n) ]) ] = [3^n / 10^([n*log_10(3) ]) ].

PROG

(PARI) { default(realprecision, 100); for (n=0, 1000, t=log(3)/log(10); write("b060956.txt", n, " ", 3^n \ 10^floor(n*t)); ) } [From _\\ _Harry J. Smith_, Jul 15 2009]

STATUS

approved

editing