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.

A168476 Numbers that are the product of two distinct primes and they are partial sum of products of two distinct primes.

This page as a plain text file.
%I A168476 #4 Oct 15 2015 21:46:10
%S A168476 6,254,339,445,502,622,687,989,1247,1726,1837,2189,2434,2563,3113,
%T A168476 3401,4701,5069,5853,6261,6467,7318,8193,8654,8891,10415,11499,12077,
%U A168476 14803,15122,15766,19883,25385,26639,27503,28394,28841,33977,34462,34951
%N A168476 Numbers that are the product of two distinct primes and they are partial sum of products of two distinct primes.
%e A168476 6,10,14,15,21,22,26,33,34,35,38,39,46,..A006881 Numbers that are the product of two distinct primes 6,16,30,45,66,88,114,147,181,216,254,...A168472 Partial sums of products of two distinct primes 6=2*3, 254=2*127, 339=3*113, 445=5*89,..
%t A168476 f[n_]:=Last/@FactorInteger[n]=={1,1}; s=0;lst={};Do[If[f[n],If[f[s+=n],AppendTo[lst,s]]],{n,6!}];lst
%t A168476 Module[{tdp=Subsets[Prime[Range[2000]],{2}],pr},pr=Times@@@tdp;Take[ Intersection[ pr,Accumulate[Sort[pr]]],40]] (* _Harvey P. Dale_, Oct 15 2015 *)
%Y A168476 Cf. A006881, A168472
%K A168476 nonn
%O A168476 1,1
%A A168476 _Vladimir Joseph Stephan Orlovsky_, Nov 26 2009