login
A069829
a(n) = PS(n)(2n), where PS is described in A057032.
6
2, 5, 9, 11, 13, 19, 17, 23, 31, 26, 25, 40, 29, 47, 58, 51, 37, 69, 41, 56, 71, 67, 49, 82, 70, 73, 92, 95, 61, 123, 65, 105, 118, 94, 112, 148, 77, 107, 134, 116, 85, 143, 89, 122, 177, 127, 97, 166, 130, 133, 175, 162, 109, 211, 159, 188, 190, 154, 121, 248, 125
OFFSET
1,1
COMMENTS
a(n) = PS(n + c)(2n + c) for any positive integer c. Every positive integer occurs exactly once in either this sequence or in A057032.
LINKS
MAPLE
A069829 := proc(n) local N, k; N := n;
for k from n by -1 to 1 do
if irem(N, k) = 0 then
if irem(N, k)::odd then
N := N - k;
else
N := N + k;
fi;
fi;
od;
N end:
seq(A069829(n), n = 1..61); # Peter Luschny, Sep 14 2019
CROSSREFS
Cf. A057032.
Sequence in context: A154732 A242936 A080154 * A022429 A020907 A206904
KEYWORD
nonn,look,easy
AUTHOR
David Wasserman, Apr 22 2002
STATUS
approved