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
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