login
A269860
Numbers n such that n and A048673(n) are of the same parity.
5
1, 2, 3, 6, 8, 9, 11, 13, 18, 20, 22, 23, 24, 25, 26, 27, 28, 31, 32, 33, 35, 37, 39, 46, 47, 49, 50, 54, 59, 60, 62, 66, 68, 69, 70, 71, 72, 74, 75, 76, 78, 80, 81, 83, 84, 85, 88, 89, 93, 94, 95, 96, 97, 98, 99, 104, 105, 107, 109, 111, 112, 116, 117, 118, 119, 121, 128, 131, 133, 138, 139, 141, 142, 143, 145, 147, 150
OFFSET
1,2
COMMENTS
Union of odd terms of A246261 and even terms of A246263.
LINKS
MATHEMATICA
f[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; Select[Range@ 150, Xor[EvenQ@ f@ #, OddQ@ #] &] (* Michael De Vlieger, Mar 17 2016 *)
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(define A269860 (ZERO-POS 1 1 (lambda (n) (- (A000035 n) (A000035 (A048673 n))))))
CROSSREFS
Complement: A269861.
Cf. A048674 (a subsequence).
Cf. also A270430.
Sequence in context: A202341 A013948 A187478 * A013952 A105042 A092114
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 16 2016
STATUS
approved