login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A298476 Least k such that A298475(k) = n. 2
1, 2, 37, 203, 1332, 13428, 160884, 858740, 10295924, 54958708, 658938484, 3517356660 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

A298474(n) = floor(log_2(a(n))) + 1.

LINKS

Table of n, a(n) for n=1..12.

Rémy Sigrist, C program for A298476

FORMULA

a(n) >= 2^(A298474(n) - 1).

a(n) < 2^A298474(n).

EXAMPLE

The smallest partition of the binary representation of A298476(k) is:

k | A298476(k) |               partition

--+------------+---------------------------------------

1 |        1   |                                  (1)_2

2 |        2   |                               (1)(0)_2

3 |       37   |                         (1001)(0)(1)_2

4 |      203   |                     (11)(00)(101)(1)_2

5 |     1332   |                (101)(00)(1)(101)(00)_2

6 |    13428   |           (11)(010)(0)(01110)(1)(00)_2

7 |   160884   |     (1001)(1)(101)(000)(111)(010)(0)_2

8 |   858740   | (11)(010)(0)(0110)(1001)(11)(010)(0)_2

MATHEMATICA

With[{s = {1, 2}~Join~Array[Function[w, Min@ Map[Length, Select[#, And[AllTrue[#, PalindromeQ], Union@ Map[Length, #] != {1}] &]] &@ Union@ Map[Select[SplitBy[#, IntegerQ], IntegerQ@ First@ # &] &, Map[Insert[w, ".", #] &, Map[{#} &, Rest@ Subsets@ Range@ Length@ w, {2}]]]]@ IntegerDigits[#, 2] &, 1400, 3]}, Array[FirstPosition[s, #][[1]] &, Max@ Take[#, 1 + LengthWhile[Differences@ #, # == 1 &]] &@ Union@ s]] (* Michael De Vlieger, Jan 23 2018 *)

PROG

(C) See Links section.

CROSSREFS

Cf. A298474, A298475.

Sequence in context: A134596 A139119 A244757 * A302883 A053788 A078976

Adjacent sequences:  A298473 A298474 A298475 * A298477 A298478 A298479

KEYWORD

nonn,base,more

AUTHOR

Peter Kagey, Jan 19 2018

EXTENSIONS

a(9)-a(12) from Rémy Sigrist, Dec 28 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 24 08:30 EDT 2021. Contains 345416 sequences. (Running on oeis4.)