OFFSET
1,1
MATHEMATICA
h = {1, 2, 3, 7, 11, 19, 43, 67, 163} a = Union[Table[If[Mod[h[[n]] + 1, 2] == 0, h[[n]] + 1, 2*(h[[n]] + 1)], {n, 1, Length[h]}]]
CROSSREFS
KEYWORD
nonn,fini,full,less
AUTHOR
Roger L. Bagula, May 03 2006
EXTENSIONS
keywords fini,full,less added by Assoc. Eds. of the OEIS, Jun 15 2010
STATUS
approved