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 A119850 #7 Mar 03 2016 11:48:23
%S A119850 36,48,72,80,100,108,112,120,144,162,168,176,180,192,196,200,208,225,
%T A119850 252,264,270,272,280,288,300,304,312,320,324,368,378,392,396,400,405,
%U A119850 408,420,432,440,441,448,450,456,464,468,480,484,496,500,520,552,567
%N A119850 Positions where A119842 is greater than one.
%H A119850 Alois P. Heinz, <a href="/A119850/b119850.txt">Table of n, a(n) for n = 1..1281</a>
%t A119850 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}]]; a[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]]]; A119842 = Array[a, 1000]; A119850 = Position[A119842, n_ /; n > 1] // Flatten (* _Jean-François Alcover_, Mar 03 2016, after _Alois P. Heinz_ *)
%Y A119850 Subset of A119848.
%K A119850 nonn
%O A119850 1,1
%A A119850 _Antti Karttunen_, Jun 04 2006