login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A250983 First differences of A094589. 3
1, 2, 2, 4, 4, 6, 6, 6, 6, 10, 10, 10, 10, 14, 14, 14, 14, 14, 14, 20, 20, 20, 20, 20, 20, 26, 26, 26, 26, 26, 26, 32, 32, 32, 32, 32, 32, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 48, 48, 48, 48, 48, 48, 48, 48, 48, 48, 58, 58, 58, 58, 58, 58, 58, 58, 58, 58 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Also, a Golomb-type sequence over A094589, i.e., a sequence obtained from A094589 by repeating each term a certain number of times so that the succession of run lengths of the resulting sequence is again that same sequence.

Has the property of idempotence: a(a(n))=a(n).

LINKS

Ivan Neretin, Table of n, a(n) for n = 1..10000

MATHEMATICA

w = {1, 2, 2};

i = 3;

Do[

  w = Join[w, Array[Length[w] + 1 &, w[[i++]]]];

  , {n, 10}

  ];

w

PROG

(PARI) flargest(va, n) = {vsa = vecsort(va, , 12); for (k=1, #vsa, if (vsa[k] < n, return (vsa[k])); ); }

lista(nn) = {voa = [1]; for (n=2, nn, newoa = flargest(voa, n) + voa[n-1]; print1(newoa - voa[n-1], ", "); voa = concat(voa, newoa); ); } \\ Michel Marcus, Mar 24 2015

CROSSREFS

Cf. A094589 (a(n) with repetitions removed), A001462 (Golomb's sequence), A013189 (Golomb's sequence over squares).

Sequence in context: A198332 A080606 A083535 * A070320 A124195 A220662

Adjacent sequences:  A250980 A250981 A250982 * A250984 A250985 A250986

KEYWORD

nonn,easy

AUTHOR

Ivan Neretin, Mar 20 2015

EXTENSIONS

More terms from Michel Marcus, Mar 24 2015

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 April 25 00:29 EDT 2019. Contains 322446 sequences. (Running on oeis4.)