OFFSET
1,2
LINKS
PROG
(Haskell)
a254339 = flip mod 10 . a254143
(PARI) listA237424(lim)=my(v=List(), a, t); while(1, for(b=0, a, t=(10^a+10^b+1)/3; if(t>lim, return(Set(v))); listput(v, t)); a++)
do(lim)=my(v=List(), u=listA237424(lim), t); for(i=1, #u, for(j=1, i, t=u[i]*u[j]; if(t>lim, break); listput(v, t))); apply(n->n%10, Set(v)) \\ Charles R Greathouse IV, May 13 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Feb 23 2015
STATUS
approved