OFFSET
1,1
COMMENTS
The first term having a repeated digit is 100235.
The first term that is a square is 12769. - Robert Israel, Jul 06 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..6240
MAPLE
# to get all terms with 5 digits S:= combinat:-choose([$0..9], 5):
f:= proc(x) local s, L;
L:= convert(x, base, 5); if nops(L) < 5 then L:= [op(L), 0$(5-nops(L))] fi; if nops(convert(L, set))<5 then return NULL fi;
op(select(t -> t > 10^4 and numtheory:-bigomega(t)=2, map(s -> add(s[L[i]+1]*10^(i-1), i=1..5), S)))
end proc:
sort(map(f, [$1..5^5-1])); # Robert Israel, Jul 06 2018
MATHEMATICA
Select[Range[10000, 11000], PrimeOmega[#]==2&&Count[DigitCount[#], 0]==5&] (* Harvey P. Dale, Apr 08 2015 *)
PROG
(PARI)
list(lim)=my(v=List(), t); forprime(p=2, sqrt(lim), t=p; forprime(q=p, lim\t, listput(v, t*q))); vecsort(Vec(v)) \\ From A001358
b=list(15000); s=[]; for(n=1, #b, if(#vecsort(eval(Vec(Str(b[n]))), , 8)==5, s=concat(s, b[n]))); s
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 14 2014
STATUS
approved