OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..50
MATHEMATICA
Select[Table[(n+1)(3n-1), {n, 3334*10^4}], Count[DigitCount[#], 0]>7&] (* Harvey P. Dale, Jun 12 2022 *)
PROG
(PARI) for(k=1, 1e8, if(#Set(digits(j=3*k^2+2*k-1))<=2, print1(j", ")))
(Magma) [a:k in [1..10000000]| #Set(Intseq(a)) le 2 where a is (k+1)*(3*k-1)]; // Marius A. Burtea, Aug 29 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Seiichi Manyama, Aug 29 2019
STATUS
approved