|
%I #10 Mar 20 2016 12:55:03
%S 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,
%T 49,50,54,59,60,62,66,68,69,70,71,72,74,75,76,78,80,81,83,84,85,88,89,
%U 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
%N Numbers n such that n and A048673(n) are of the same parity.
%C Union of odd terms of A246261 and even terms of A246263.
%H Antti Karttunen, <a href="/A269860/b269860.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%o (Scheme, with _Antti Karttunen_'s IntSeq-library)
%o (define A269860 (ZERO-POS 1 1 (lambda (n) (- (A000035 n) (A000035 (A048673 n))))))
%Y Complement: A269861.
%Y Cf. A048674 (a subsequence).
%Y Cf. A000035, A048673, A246261, A246263.
%Y Cf. also A270430.
%K nonn
%O 1,2
%A _Antti Karttunen_, Mar 16 2016
|
