The On-Line Encyclopedia of Integer Sequences (OEIS)

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

Revision History for A215525

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

A215525

a(0)=a(1)=1, a(n) = a(n-1) + a(a(n-2) mod n).
(history; published version)

#13 by Michel Marcus at Fri Sep 08 03:41:15 EDT 2017

STATUS

reviewed

approved

#12 by Joerg Arndt at Fri Sep 08 03:16:32 EDT 2017

STATUS

proposed

reviewed

#11 by Ivan Neretin at Thu Sep 07 15:47:10 EDT 2017

STATUS

editing

proposed

#10 by Ivan Neretin at Thu Sep 07 15:46:57 EDT 2017

LINKS

Ivan Neretin, <a href="/A215525/b215525.txt">Table of n, a(n) for n = 0..10000</a>

MATHEMATICA

Fold[Append[#1, #1[[-1]] + #1[[1 + Mod[#1[[-2]], #2]]]] &, {1, 1}, Range[2, 49]] (* Ivan Neretin, Sep 07 2017 *)

STATUS

approved

editing

#9 by N. J. A. Sloane at Tue Sep 30 08:00:17 EDT 2014

STATUS

reviewed

approved

#8 by Michel Marcus at Fri Sep 26 03:12:04 EDT 2014

STATUS

proposed

reviewed

#7 by Derek Orr at Thu Sep 25 23:53:53 EDT 2014

STATUS

editing

proposed

#6 by Derek Orr at Thu Sep 25 23:53:49 EDT 2014

PROG

..print (a[n-2], end=', ')

..a[n] = a[n-1] + a[a[n-2] % n]

# Corrected by Derek Orr, Sep 25 2014

STATUS

approved

editing

#5 by N. J. A. Sloane at Wed Aug 15 00:18:37 EDT 2012

STATUS

proposed

approved

#4 by Alex Ratushnyak at Wed Aug 15 00:01:43 EDT 2012

STATUS

editing

proposed