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 A109163 #10 Sep 13 2015 22:09:45 %S A109163 3,6,10,30,42,70,22,66,330,770,2310,130,182,546,2730,1430,6006,10010, %T A109163 102,510,238,3570,1122,2618,442,2210,6630,9282,15470,4862,510510,114, %U A109163 266,798,2090,6270,14630,1482,7410,17290,16302,27170,570570,646,3230 %N A109163 a(n) = A019565(n-th prime). %e A109163 The 5th prime is 11 (decimal), which is 1011 in binary. So a(5) is the product of the primes corresponding to the 1's of 1011, 2*3*7 = 42. %t A109163 Table[m = 1; o = 1; k1 = Prime[k]; While[k1 > 0, k2 = Mod[k1, 2]; If[k2 == 1, m = m*Prime[o]]; k1 = (k1 - k2)/2; o = o + 1]; m, {k, 1, 55}] (* _Stefan Steinerberger_, Mar 19 2006 *) %Y A109163 Cf. A019565. %K A109163 nonn %O A109163 1,1 %A A109163 _Leroy Quet_, Aug 18 2005 %E A109163 More terms from _Stefan Steinerberger_, Mar 19 2006