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.

A235691 Semiprimes which have one or more occurrences of exactly three different digits.

This page as a plain text file.
%I A235691 #12 Apr 29 2014 22:49:29
%S A235691 106,123,129,134,142,143,145,146,158,159,169,178,183,185,187,194,201,
%T A235691 203,205,206,209,213,214,215,217,218,219,235,237,247,249,253,254,259,
%U A235691 265,267,274,278,287,289,291,295,298,301,302,305,309,314,319,321,326,327
%N A235691 Semiprimes which have one or more occurrences of exactly three different digits.
%C A235691 The first term having a repeated digit is 1003.
%e A235691 91119111691966691969 is a term, because it is made of the 3 digits {1, 6, 9} and is the product of two primes 9397848521 and 9695741689. - _Giovanni Resta_, Jan 14 2014
%t A235691 Select[Range@999, Length@ Union@ IntegerDigits[#] == 3 && Total[Last /@ FactorInteger[#]] == 2 &] (* _Giovanni Resta_, Jan 14 2014 *)
%o A235691 (PARI)
%o A235691 list(lim)=my(v=List(), t); forprime(p=2, sqrt(lim), t=p; forprime(q=p, lim\t, listput(v, t*q))); vecsort(Vec(v)) \\ From A001358
%o A235691 b=list(10000); s=[]; for(n=1, #b, if(#vecsort(eval(Vec(Str(b[n]))),,8)==3, s=concat(s, b[n]))); s
%Y A235691 Cf. A235690, A235692-A235696.
%Y A235691 Cf. A235154-A235161.
%K A235691 nonn,base
%O A235691 1,1
%A A235691 _Colin Barker_, Jan 14 2014