A116060 Numbers made of nontrivial runs of identical digits obtained multiplying a number m by the m-th prime.
55, 444, 4411445566, 1122777666688, 4466224466600, 44488668881177, 660000556677333, 9995566666633377799, 11155533666655666655, 441155662211122335599, 1144115588776688333355, 4488667700668887770033
Offset: 1
Examples
p(4259192969)=103577289271 and 4259192969*103577289271=441155662211122335599.
Programs
-
Mathematica
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 *)
Comments