OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..5000
EXAMPLE
6*2 = 12 therefore 2 is a term (m = 6 < 10).
499*6 = 2994 therefore 499 is a term (m = 6 < 10).
599*5 = 2995 therefore 599 is a term (m = 5 < 10).
37 is not a term since 10*37 = 370 is the smallest multiple of 37 containing 3 and 7
MATHEMATICA
nn = 10000; Reap[Do[p = Prime[n]; d = DigitCount[p]; k = 2; While[! AllTrue[DigitCount[#] - d, # >= 0 &] &[p*k], k++]; If[k < 10, Sow[p]], {n, nn}]][[-1, 1]] (* Michael De Vlieger, Feb 20 2025 *)
PROG
(PARI) lista(nn) = forprime(p=2, nn, if (A380883(p) != 10*p, print1(p, ", "))); \\ Michel Marcus, Feb 20 2025
CROSSREFS
KEYWORD
nonn,base,new
AUTHOR
David James Sycamore, Feb 07 2025
EXTENSIONS
59, 491, and more terms added by Michel Marcus, Feb 20 2025
STATUS
approved