|
Search: id:A117623
|
|
| |
|
| 3, 2, 4, -1, 5, -6, 7, 9, -12, 8, 10, -14, 11, 13, -22, 15, 16, -28, 17, 18, -34, 20, 21, -38, 19, 24, -42, 25, -23, 26, 27, -49, 30, 29, -57, 31, 33, -63, 35, 32, -66, 36, 39, -72, 37, 40, -71, 41, 43, -83, 44, 45, -87, 46, 47, -91, 50, -48, 52, 51, -100, 53, 54, -105, 55, 56, -110, 59, 58, -115, 60
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Does every positive number appear as an absolute value?
|
|
MATHEMATICA
|
f[s_] := Block[{k = 1, d = Abs[Most@s - Rest@s], l = Last@s}, While[ PrimeQ[k] || MemberQ[s, k] || MemberQ[d, Abs[l - k]], k++ ]; Append[s, k]]; t = Nest[f, {1}, 71]; Rest@t - Most@t - Robert G. Wilson v (rgwv(at)rgwv.com), Jun 13 2006
|
|
CROSSREFS
|
Sequence in context: A122143 A144868 A134029 this_sequence A145690 A139583 A073314
Adjacent sequences: A117620 A117621 A117622 this_sequence A117624 A117625 A117626
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 08 2006
|
|
EXTENSIONS
|
More terms from Jonathan Vos Post, Apr 10 2006
Corrected and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Jun 13 2006
|
|
|
Search completed in 0.002 seconds
|
