A269860 Numbers n such that n and A048673(n) are of the same parity.

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

Antti Karttunen, Table of n, a(n) for n = 1..10000

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. A000035, A048673, A246261, A246263.

Cf. also A270430.

Sequence in context: A202341 A013948 A187478 * A013952 A105042 A092114

Adjacent sequences: A269857 A269858 A269859 * A269861 A269862 A269863

Keyword

nonn

Author

Antti Karttunen, Mar 16 2016

Status

approved