|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Does every positive number appear as an absolute value?
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|