The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A250983

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

A250983

First differences of A094589.
(history; published version)

#21 by N. J. A. Sloane at Sun Mar 29 13:44:17 EDT 2015

STATUS

editing

approved

#20 by N. J. A. Sloane at Sun Mar 29 13:44:15 EDT 2015

COMMENTS

Also, a Golomb's -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.

STATUS

proposed

editing

#19 by Ivan Neretin at Tue Mar 24 17:05:40 EDT 2015

STATUS

editing

proposed

#18 by Ivan Neretin at Tue Mar 24 17:04:44 EDT 2015

LINKS

Ivan Neretin, <a href="/A250983/b250983.txt">Table of n, a(n) for n = 1..10000</a>

MATHEMATICA

w = {1, 2, 2};

i = 3;

Do[

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

, {n, 10}

];

w

STATUS

proposed

editing

#17 by Michel Marcus at Tue Mar 24 07:08:26 EDT 2015

STATUS

editing

proposed

Discussion

Tue Mar 24

08:04

Michel Marcus: Yes, ..., you're right. 
I understand, I got mixed up between n and n+1.
Thanks.

#16 by Michel Marcus at Tue Mar 24 07:07:58 EDT 2015

PROG

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

(PARI) 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

STATUS

proposed

editing

Discussion

Tue Mar 24

07:08

Michel Marcus: Forgot a script (done).

#15 by Michel Marcus at Tue Mar 24 07:07:36 EDT 2015

STATUS

editing

proposed

#14 by Michel Marcus at Tue Mar 24 07:06:34 EDT 2015

DATA

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

PROG

(PARI) 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

EXTENSIONS

More terms from Michel Marcus, Mar 24 2015

STATUS

proposed

editing

Discussion

Tue Mar 24

07:07

Michel Marcus: Ivan, do you agree with my discussion in A094589 ?

#13 by Michel Marcus at Sun Mar 22 14:35:06 EDT 2015

STATUS

editing

proposed

#12 by Michel Marcus at Sun Mar 22 14:34:53 EDT 2015

CROSSREFS

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

STATUS

proposed

editing