The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A160357

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

A160357

Sign of first differences of Recamán's sequence A005132.
(history; published version)

#20 by N. J. A. Sloane at Fri May 01 22:25:02 EDT 2020

STATUS

editing

approved

#19 by N. J. A. Sloane at Fri May 01 22:24:57 EDT 2020

LINKS

T. D. Noe, <a href="/A160357/b160357.txt">Table of n, a(n) for n = 10..10000</a>

STATUS

approved

editing

#18 by N. J. A. Sloane at Fri May 01 22:24:11 EDT 2020

STATUS

editing

approved

#17 by N. J. A. Sloane at Fri May 01 22:24:09 EDT 2020

DATA

1, 1, 1, 1, -1, 1, 1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, 1, -1, 1, -1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, 1, -1, 1, -1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 1, 1, 1, -1, 1, -1

OFFSET

1,0,1

EXTENSIONS

a(0)=1 added by N. J. A. Sloane, May 01 2020

STATUS

approved

editing

#16 by Susanna Cuyler at Sun Apr 19 07:53:11 EDT 2020

STATUS

proposed

approved

#15 by Jean-François Alcover at Sun Apr 19 03:18:19 EDT 2020

STATUS

editing

proposed

#14 by Jean-François Alcover at Sun Apr 19 03:18:02 EDT 2020

MATHEMATICA

f[s_List] := Module[{a = s[[-1]], n = Length[s]}, Append[s, If[a > n && FreeQ[s, a - n], a - n, a + n]]];

Nest[f, {0}, 100] // Differences // Sign (* Jean-François Alcover, Apr 19 2020, using Robert G. Wilson v's code for A005132 *)

STATUS

approved

editing

#13 by Michel Marcus at Sat Apr 05 09:55:40 EDT 2014

STATUS

proposed

approved

#12 by Jon E. Schoenfield at Sat Apr 05 09:04:20 EDT 2014

STATUS

editing

proposed

#11 by Jon E. Schoenfield at Sat Apr 05 09:04:18 EDT 2014

NAME

Sign of first differences of RecamanRecamán's sequence A005132.

STATUS

approved

editing