OFFSET
1,1
COMMENTS
A run of length 1 is trivial.
EXAMPLE
p(4259192969)=103577289271 and
4259192969*103577289271=441155662211122335599.
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved