OFFSET
0,2
MATHEMATICA
nmax = 63; amax = 8*nmax; t = {{0, a[0] = 0}, {1, a[1] = 2}, {2, a[2]}}; While[ !FreeQ[t, a], t = Table[{n, a[n]}, {n, 0, nmax}]; n = Select[t, !IntegerQ[ #[[2]] ] &, 1][[1, 1]]; t2 = Union[ Flatten[ Append[ Select[ t, IntegerQ[ #[[2]] ] &], n]]]; an = If[n == 2, 8, Select[ Complement[ Range[ Max[t2] ], t2], Mod[#, 8] != 0 &, 1][[1]] ]; a[n] = an; While[ an < amax, an = a[n = an] = 8 n]]; Table[ a[n], {n, 0, nmax}] (* Jean-François Alcover, Jan 11 2012 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Henry Bottomley, Apr 27 2000
STATUS
approved