A119484 - OEIS

%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