OFFSET
1,1
MATHEMATICA
p[n_] := n*(3*n - 1)/2; Select[p /@ Range[85000], Length @ DeleteDuplicates @ IntegerDigits[#] == 10 &] (* Amiram Eldar, Aug 13 2021 *)
PROG
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Dumitru Damian, Aug 13 2021
STATUS
approved