|
|
MATHEMATICA
| consecutiveQ[n_Integer] := Block[{id = IntegerDigits@n}, MemberQ[{{1}, {9}}, Union@Mod[Rest@id - Most@id, 10]]] (* Bobby R. Treat (drbob(at)bigfoot.com), May 10 2006 *)
lst = Range[1, 10^8, 2]; i = 2; While[ i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Select[t, consecutiveQ@# &] (* Robert G. Wilson v *) - Robert G. Wilson v (rgwv(at)rgwv.com), May 11 2006
|
