cp's OEIS Frontend

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.

A184481 Semiprime centered triangular numbers.

This page as a plain text file.
%I A184481 #16 Nov 21 2013 12:50:07
%S A184481 4,10,46,85,166,235,274,361,514,694,901,1135,1219,1306,1585,1891,2461,
%T A184481 2839,3106,3385,3826,3979,4135,5311,5674,6049,6241,6835,7246,8551,
%U A184481 9481,10966,11485,11749,12286,12559,13969,15151,15454,17335,18649,18985,19666,21421,21781,22879,23626,24385,26734,27949,28774,30034,32194,33079,33526
%N A184481 Semiprime centered triangular numbers.
%C A184481 Numbers of the form 3*n*(n-1)/2 + 1 = p*q where p and q are primes, not necessarily distinct. This is to semiprimes A001358 as A125602 is to primes A000040.
%F A184481 A001358 INTERSECTION A005448.
%e A184481 a(3) = 3*6(6-1)/2 + 1 = 10 = 2 * 5.
%t A184481 SemiprimeQ[n_] := Total[FactorInteger[n]][[2]] == 2; Select[Table[3*n (n - 1)/2 + 1, {n, 150}], SemiprimeQ]
%t A184481 Select[Table[(3n(n-1))/2+1,{n,200}],PrimeOmega[#]==2&] (* _Harvey P. Dale_, May 13 2012 *)
%Y A184481 Cf. A001358, A005448, A125602.
%K A184481 nonn,easy
%O A184481 1,1
%A A184481 _Jonathan Vos Post_, Feb 12 2011