|
%I #4 Jun 05 2024 17:32:40
%S 55,444,4411445566,1122777666688,4466224466600,44488668881177,
%T 660000556677333,9995566666633377799,11155533666655666655,
%U 441155662211122335599,1144115588776688333355,4488667700668887770033
%N Numbers made of nontrivial runs of identical digits obtained multiplying a number m by the m-th prime.
%C A run of length 1 is trivial.
%e p(4259192969)=103577289271 and
%e 4259192969*103577289271=441155662211122335599.
%t Select[Table[m*Prime[m],{m,10^6}],Min[Length/@Split[IntegerDigits[#]]]>1&] (* The program generates the first 5 terms of the sequence. *) (* _Harvey P. Dale_, Jun 05 2024 *)
%Y Cf. A033023, A116058, A116059.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, Feb 13 2006
| 