A118563 The set of numbers of the form A003173(n)+1 with odd A003173(n) or of the form 2*(A003173(n)+1) with even A003173(n).
2, 4, 6, 8, 12, 20, 44, 68, 164
Offset: 1
Crossrefs
Cf. A003173.
Programs
-
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]}]]
Extensions
keywords fini,full,less added by Assoc. Eds. of the OEIS, Jun 15 2010
Comments