cp's OEIS Frontend

A062016 Numbers with all odd digits which can be factored into two numbers > 1 with odd digits.

%I A062016 #12 Nov 22 2016 21:59:54
%S A062016 9,15,33,35,39,51,55,57,75,77,91,93,95,99,111,117,119,133,135,153,155,
%T A062016 159,171,175,177,195,315,333,339,351,355,357,371,375,393,395,399,511,
%U A062016 513,519,531,537,539,553,555,573,575,579,591,595,597,711,715,755,775,777,791,795,917,931,933,935,939,951,955,957,959,973,975
%N A062016 Numbers with all odd digits which can be factored into two numbers > 1 with odd digits.
%H A062016 Matthew House, <a href="/A062016/b062016.txt">Table of n, a(n) for n = 1..10000</a>
%e A062016 95 = 19*5 is OK but 115 = 23*5 and 17*5 = 85 are not.
%p A062016 dmax:= 4: # to get all terms of up to dmax digits
%p A062016 S[1]:= [1,3,5,7,9]:
%p A062016 for d from 2 to dmax do
%p A062016   S[d]:= map(t -> seq(10*t+j,j=1..9,2), S[d-1])
%p A062016 od:
%p A062016 T:= {seq(op(S[i]),i=1..dmax)} minus {1}:
%p A062016 R:= T intersect {seq(seq(T[i]*T[j],j=1..i),i=1..nops(T))}:
%p A062016 sort(convert(R,list)); # _Robert Israel_, Nov 22 2016
%K A062016 nonn,base,easy
%O A062016 1,1
%A A062016 _Amarnath Murthy_, Jun 01 2001
%E A062016 More terms from _Matthew Conroy_, Jun 11 2001
%E A062016 Offset corrected by and more terms from _Matthew House_, Nov 22 2016