BBC Russian

Revision History for A063603

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

A063603

Smallest k such that 6^k has exactly n 7's in its decimal representation.
(history; published version)

#12 by Michael De Vlieger at Sun Jul 23 18:22:46 EDT 2023

STATUS

proposed

approved

#11 by Sean A. Irvine at Sun Jul 23 17:17:20 EDT 2023

STATUS

editing

proposed

#10 by Sean A. Irvine at Sun Jul 23 17:17:16 EDT 2023

OFFSET

1,0,2

EXTENSIONS

Offset corrected by Sean A. Irvine, Jul 23 2023

STATUS

approved

editing

#9 by Giovanni Resta at Tue Jun 26 19:16:05 EDT 2018

STATUS

proposed

approved

#8 by Jon E. Schoenfield at Tue Jun 26 19:01:47 EDT 2018

STATUS

editing

proposed

#7 by Jon E. Schoenfield at Tue Jun 26 19:01:44 EDT 2018

NAME

Smallest power of k such that 6 having just ^k has exactly n 7's in its decimal representation.

EXTENSIONS

Name corrected by Jon E. Schoenfield, Jun 26 2018

STATUS

approved

editing

#6 by Charles R Greathouse IV at Thu Nov 21 12:47:32 EST 2013

MATHEMATICA

Join[{1}, Flatten[With[{p6=6^Range[650]}, Table[First[Position[p6, _?(Count[ IntegerDigits[#], 7]==n&)]], {n, 55}]]]] (* From _Harvey P. Dale, _, Oct 03 2011 *)

Discussion

Thu Nov 21

12:47

OEIS Server: https://oeis.org/edit/global/2062

#5 by Russ Cox at Fri Mar 30 17:30:33 EDT 2012

AUTHOR

_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Aug 10 2001

Discussion

Fri Mar 30

17:30

OEIS Server: https://oeis.org/edit/global/156

#4 by Harvey P. Dale at Mon Oct 03 12:50:34 EDT 2011

STATUS

editing

approved

#3 by Harvey P. Dale at Mon Oct 03 12:50:28 EDT 2011

MATHEMATICA

Join[{1}, Flatten[With[{p6=6^Range[650]}, Table[First[Position[p6, _?(Count[ IntegerDigits[#], 7]==n&)]], {n, 55}]]]] (* From Harvey P. Dale, Oct 03 2011 *)

STATUS

approved

editing