The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A138095

Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add: to the term at position n + 1*a(n) the value 1, to the term at position n + 2*a(n) the value 1, ..., to the term at position n + n*a(n) the value 1.
(history; published version)

#16 by Michael De Vlieger at Tue Aug 09 10:58:33 EDT 2022

STATUS

proposed

approved

#15 by Pontus von Brömssen at Tue Aug 09 10:55:38 EDT 2022

STATUS

editing

proposed

Discussion

Tue Aug 09

10:58

Michael De Vlieger: Yes, sir. Looks good.

#14 by Pontus von Brömssen at Tue Aug 09 10:55:05 EDT 2022

EXAMPLE

n | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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

Step 1 | 3

Step 2 | 6 9

Step 3 | 7 10 13

Step 4 | 10 14 17 21

Step 5 | 12 18

Step 6 | 14 22

Step 7 | 15

Step 8 | 19

Step 9 | 20

Step 10 | 23

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

a(n) | 1 3 3 4 6 7 7 10 10 10 12 14 14 15 15 17 18 19 20 23

STATUS

proposed

editing

Discussion

Tue Aug 09

10:55

Pontus von Brömssen: Is this table helpful?

#13 by Michel Marcus at Tue Aug 09 08:28:56 EDT 2022

STATUS

editing

proposed

#12 by Michel Marcus at Tue Aug 09 08:28:07 EDT 2022

DATA

1, 3, 3, 4, 6, 7, 7, 10, 10, 10, 13, 12, 14, 14, 15, 15, 17, 18, 19, 20, 22, 23, 22, 22, 24, 25, 24, 25, 27, 29, 30, 32, 32, 31, 32, 34, 35, 38, 36, 39, 36, 38, 39, 41, 42, 44, 4443, 43, 45, 46, 46, 46, 48, 52, 51, 53, 51, 52, 55, 55, 56, 59, 57, 60, 63, 62, 62, 64, 63, 65, 66, 68, 69, 70, 72, 71

PROG

(PARI) lista(nn) = my(va = [1..nn]); for (n=1, nn, for (k=1, n, my(j = n+k*va[n]); if (j <= #va, va[j]++); )); va; \\ Michel Marcus, Aug 09 2022

KEYWORD

easy,nonn,more,changed

EXTENSIONS

Corrected and extended by Michel Marcus, Aug 09 2022

STATUS

approved

editing

Discussion

Tue Aug 09

08:28

Michel Marcus: Michael, I undid my last edit; do you agree with this new edit ?

#11 by Michel Marcus at Tue Aug 09 08:17:24 EDT 2022

DATA

1, 3, 3, 4, 5, 6, 7, 9, 9, 7, 10, 10, 10, 11, 13, 13, 14, 14, 15, 15, 16, 17, 18, 19, 21, 21, 20, 22, 22, 22, 23, 24, 25, 26, 25, 27, 28, 29, 31, 30, 32, 32, 31, 32, 33, 34, 35, 36, 37, 38, 36, 39, 39, 40, 41, 43, 43, 42, 44, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70

PROG

(PARI) lista(nn) = my(va = [1..nn]); for (k=1, nn, my(i = k+k*va[k]); if (i<= #va, va[i]++); ); va; \\ Michel Marcus, Aug 09 2022

KEYWORD

easy,nonn,changedmore

EXTENSIONS

Corrected and extended by Michel Marcus, Aug 09 2022

STATUS

proposed

approved

#10 by Michel Marcus at Tue Aug 09 05:49:48 EDT 2022

STATUS

editing

proposed

Discussion

Tue Aug 09

07:04

Michael De Vlieger: I get "1, 3, 3, 4, 6, 7, 7, 10, 10, 10", but I think that is because there is a second loop. At step k, we have to increment a(k+j*a(k)) for j = 1..k.

#9 by Michel Marcus at Tue Aug 09 05:49:21 EDT 2022

DATA

1, 3, 3, 4, 5, 6, 7, 7, 10, 10, 9, 9, 10, 11, 13, 13, 14, 14, 15, 15, 16, 17, 18, 19, 20, 22, 22, 21, 21, 22, 23, 24, 25, 25, 26, 27, 28, 29, 30, 32, 32, 31, 31, 32, 33, 34, 35, 38, 36, 39, 37, 38, 39, 40, 41, 42, 44, 43, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70

PROG

(PARI) lista(nn) = my(va = [1..nn]); for (k=1, nn, my(i = k+k*va[k]); if (i<= #va, va[i]++); ); va; \\ Michel Marcus, Aug 09 2022

KEYWORD

easy,nonn,more

EXTENSIONS

Corrected and extended by Michel Marcus, Aug 09 2022

STATUS

approved

editing

Discussion

Tue Aug 09

05:49

Michel Marcus: I do not get same terms; can someone confirm ?

#8 by N. J. A. Sloane at Wed Mar 16 02:55:57 EDT 2022

STATUS

proposed

approved

#7 by Jon E. Schoenfield at Tue Mar 15 21:52:00 EDT 2022

STATUS

editing

proposed