This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A269860 #10 Mar 20 2016 12:55:03 %S A269860 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 A269860 49,50,54,59,60,62,66,68,69,70,71,72,74,75,76,78,80,81,83,84,85,88,89, %U A269860 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 A269860 Numbers n such that n and A048673(n) are of the same parity. %C A269860 Union of odd terms of A246261 and even terms of A246263. %H A269860 Antti Karttunen, <a href="/A269860/b269860.txt">Table of n, a(n) for n = 1..10000</a> %t A269860 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 A269860 (Scheme, with _Antti Karttunen_'s IntSeq-library) %o A269860 (define A269860 (ZERO-POS 1 1 (lambda (n) (- (A000035 n) (A000035 (A048673 n)))))) %Y A269860 Complement: A269861. %Y A269860 Cf. A048674 (a subsequence). %Y A269860 Cf. A000035, A048673, A246261, A246263. %Y A269860 Cf. also A270430. %K A269860 nonn %O A269860 1,2 %A A269860 _Antti Karttunen_, Mar 16 2016