|
%I #9 Apr 21 2024 11:39:48
%S 10,111,10,1001,11,1001,11101,11001,110101,1101101,111011,111,11111,
%T 1101101,10011,100011,11011111,100101,1101011,10011,10001,10010011,
%U 101011,11010101,11100001,101,11100001,100010011,1001010111
%N Products associated with multipliers in A119483.
%C a(n) is the smallest number of the form m*prime(n) whose largest digit is 1. - _Farideh Firoozbakht_, Jun 03 2006
%F Find the number which when multiplied by the next prime, produces a product of all 1's and 0's or all 1's.
%e a(1)=111 because 3*37=111.
%t a[n_]:=(For[m=1, Max[IntegerDigits[m*Prime[n]]]!=1,m++ ];m*Prime[n]); Do[Print[a[n]],{n,1,29}] (* _Farideh Firoozbakht_, Jun 03 2006 *)
%o (UBASIC) 'See A119483
%Y Cf. A119483.
%K easy,nonn
%O 1,1
%A _Enoch Haga_, May 23 2006
%E More terms from _Farideh Firoozbakht_, Jun 03 2006
|
