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 A119848 #7 Mar 03 2016 02:24:33
%S A119848 1,2,3,4,5,7,8,9,11,12,13,16,17,18,19,20,23,25,27,28,29,31,32,36,37,
%T A119848 41,43,44,45,47,48,49,50,52,53,59,61,63,64,67,68,71,72,73,75,76,79,80,
%U A119848 81,83,89,92,97,98,99,100,101,103,107,108,109,112,113,116,117,120,121
%N A119848 Positions where A119842 is not zero.
%H A119848 Alois P. Heinz, <a href="/A119848/b119848.txt">Table of n, a(n) for n = 1..3323</a>
%t A119848 b[s_, t_] := b[s, t] = If[Length[s] < 1, 1, Sum[If[Mod[PrimeOmega[x], 2] == 1 - t && Length[Select[s, Mod[#, x] == 0 &]] == 1, b[s~Complement~{x}, 1 - t], 0], {x, s}]]; c[n_] := Module[{l, m}, l = Sort[FactorInteger[n], #1[[2]] > #2[[2]] &]; m = Product[Prime[i]^l[[i]][[2]], {i, 1, Length[l]} ]; b[Divisors[m][[2 ;; -2]], Mod[PrimeOmega[m], 2]]]; A119848 = Position[ Table[c[n], {n, 1, 200}], _?Positive] // Flatten (* _Jean-François Alcover_, Mar 03 2016, after _Alois P. Heinz_ *)
%Y A119848 Complement: A119847. Cf. A119850.
%K A119848 nonn
%O A119848 1,2
%A A119848 _Antti Karttunen_, Jun 04 2006