The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A265509

a(n) = largest base-2 palindrome m <= 2n+1 such that every base-2 digit of m is <= the corresponding digit of 2n+1; m is written in base 10.
(history; published version)

#22 by N. J. A. Sloane at Tue Aug 23 12:42:10 EDT 2016

STATUS

proposed

approved

#21 by JungHwan Min at Tue Aug 23 00:29:29 EDT 2016

STATUS

editing

proposed

#20 by JungHwan Min at Tue Aug 23 00:28:45 EDT 2016

MATHEMATICA

A265509 = FromDigits[Min /@ Transpose[{#, Reverse@#}], 2] &@IntegerDigits[2 # + 1, 2] & (* _JungHwan Min_, Aug 22 2016 *)

IntegerDigits[2 # + 1, 2] & (* JungHwan Min, Aug 22 2016 *)

STATUS

proposed

editing

#19 by JungHwan Min at Tue Aug 23 00:27:15 EDT 2016

STATUS

editing

proposed

#18 by JungHwan Min at Tue Aug 23 00:26:28 EDT 2016

MATHEMATICA

A265509 = FromDigits[Min /@ Transpose[{#, Reverse@#}], 2] &@

IntegerDigits[2 # + 1, 2] & (* JungHwan Min, Aug 22 2016 *)

STATUS

approved

editing

#17 by Reinhard Zumkeller at Fri Dec 11 23:38:31 EST 2015

STATUS

editing

approved

#16 by Reinhard Zumkeller at Fri Dec 11 23:34:28 EST 2015

PROG

(ys:_) = dropWhile (\ps -> not $ and $ zipWith impl (<=) ps bs) pss'

impl 1 0 = False

impl _ _ = True

STATUS

approved

editing

#15 by OEIS Server at Fri Dec 11 15:20:55 EST 2015

LINKS

Reinhard Zumkeller, <a href="/A265509/b265509_1.txt">Table of n, a(n) for n = 0..8191</a>

#14 by Reinhard Zumkeller at Fri Dec 11 15:20:55 EST 2015

STATUS

editing

approved

Discussion

Fri Dec 11

15:20

OEIS Server: Installed new b-file as b265509.txt.  Old b-file is now b265509_1.txt.

#13 by Reinhard Zumkeller at Fri Dec 11 15:20:07 EST 2015

LINKS

Reinhard Zumkeller, <a href="/A265509/b265509_1.txt">Table of n, a(n) for n = 0..100008191</a>

KEYWORD

nonn,base,new,look