A117623 Values of k associated with A117622.

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?

Links

Table of n, a(n) for n=1..71.

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

Adjacent sequences: A117620 A117621 A117622 * A117624 A117625 A117626

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