OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 464 = 2^4 x 29, a(2) = 496 = 2^4 * 31, a(3) = 696 = 2^3 * 3 * 29, a(4) = 944 = 2^4 * 59, a(5) = 4446 = 2 * 3^2 * 13 * 19, a(6) = 4496 = 2^4 * 281, a(7) = 4664 = 2^3 * 11 * 53, a(8) = 6444 = 2^2 * 3^2 * 179, a(9) = 6669 = 3^3 * 13 * 19, a(10) = 6996 = 2^2 * 3 * 11 * 53.
MATHEMATICA
Select[Range[100000], PrimeOmega[#]==5&&Union[Drop[Drop[Drop[ DigitCount[ #], {9}], {6}], {4}]]=={0}&] (* Harvey P. Dale, Oct 03 2011 *)
PROG
(PARI) do(N)=my(v=List(), a=[4, 6, 9]); for(d=1, N, forvec(u=vector(d, i, [1, 3]), t=fromdigits(apply(n->a[n], u)); if(bigomega(t)==5, listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Feb 01 2017
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Nov 17 2005
EXTENSIONS
Corrected by Ray Chandler, Nov 19 2005
STATUS
approved