Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Revision History for A272760

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
#13 by N. J. A. Sloane at Fri May 06 14:26:24 EDT 2016
STATUS

proposed

approved

#12 by Peter Kagey at Fri May 06 12:09:19 EDT 2016
STATUS

editing

proposed

#11 by Peter Kagey at Fri May 06 12:09:15 EDT 2016
LINKS

Peter Kagey, <a href="/A272760/b272760.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#10 by N. J. A. Sloane at Fri May 06 12:05:04 EDT 2016
STATUS

proposed

approved

#9 by Michael De Vlieger at Thu May 05 22:09:47 EDT 2016
STATUS

editing

proposed

#8 by Michael De Vlieger at Thu May 05 22:09:45 EDT 2016
MATHEMATICA

Table[SelectFirst[Reverse@ Range@ #, First@ DigitCount[#, 2] == #/n &] &[n SelectFirst[Range[2^12], # > IntegerLength[n #, 2] &]]/n, {n, 120}] /. k_ /; MissingQ@ k -> 0 (* Michael De Vlieger, May 05 2016, Version 10.2 *)

STATUS

proposed

editing

#7 by Peter Kagey at Thu May 05 20:02:56 EDT 2016
STATUS

editing

proposed

#6 by Peter Kagey at Thu May 05 20:02:54 EDT 2016
COMMENTS

a(n) is the greatest value i such that A000120(n * i) == i or 0 if no such value exists.

STATUS

proposed

editing

#5 by Peter Kagey at Thu May 05 20:02:38 EDT 2016
STATUS

editing

proposed

#4 by Peter Kagey at Thu May 05 20:02:14 EDT 2016
COMMENTS

a(n) is the greatest value i such that A000120(n * i) == i or 0 if no such value exists.

STATUS

proposed

editing