OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..6434
MAPLE
filter:= proc(n) convert(convert(n, base, 10), set) intersect convert(convert(n*(n+1)/2, base, 10), set) = {} end proc:
select(filter, [$1..1000]); # Robert Israel, Apr 21 2017
PROG
(PARI) L=List(); for(n=1, 500, if(setintersect(vecsort(digits(n), , 8), vecsort(digits(n*(n+1)/2), , 8))==[], listput(L, n))); Vec(L)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Apr 13 2017
STATUS
approved