

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 Golombtype 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[n1]; print1(newoa  voa[n1], ", "); 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



