login
A117623
Values of k associated with A117622.
1
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
OFFSET
1,1
COMMENTS
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, Jun 13 2006 *)
CROSSREFS
Sequence in context: A122143 A144868 A134029 * A145690 A259053 A161911
KEYWORD
sign
AUTHOR
Amarnath Murthy, Apr 08 2006
EXTENSIONS
More terms from Jonathan Vos Post, Apr 10 2006
Corrected and extended by Robert G. Wilson v, Jun 13 2006
STATUS
approved