|
Search: id:A099004
|
|
| |
|
| 1, 2, 3, -4, 5, 6, -9, 7, 8, -14, 10, 11, -18, 12, 13, -24, 15, 16, -30, 17, 19, -34, 20, 21, -39, 22, 23, -43, 25, 26, -50, 27, 28, -54, 29, 31, -57, 33, -32, 35, 36, -70, 37, 38, -73, 40, 41, -78, 42, 44, -85, 45, 46, -90, 47, 48, -94, 49, 51, -97, 52, 53, -104, 55, 56, -109, 58, 59, -116, 61, -60, 62, 63
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Does every number appear in the sequence of absolute values?
|
|
MATHEMATICA
|
f[s_] := Block[{k = 1, d = Abs[Most@s - Rest@s], l = Last@s}, While[MemberQ[s, k] || MemberQ[d, Abs[l - k]], k++ ]; Append[s, k]]; t = Nest[f, {1}, 75]; Rest@t - Most@t - Robert G. Wilson v (rgwv(at)rgwv.com), Jun 13 2006
|
|
CROSSREFS
|
Sequence in context: A128421 A115885 A029964 this_sequence A055170 A068384 A005940
Adjacent sequences: A099001 A099002 A099003 this_sequence A099005 A099006 A099007
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (amarnath_murthy(AT)yahoo.com), Jun 17 2003
|
|
EXTENSIONS
|
Edited by njas, Apr 08 2006
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Jun 13 2006
|
|
|
Search completed in 0.002 seconds
|
