OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..101 (contains all the members of the sequence).
MAPLE
f:= proc(k) local p, Lk, Lp, m;
p:= ithprime(k);
Lk:= convert(k, base, 10);
Lp:= convert(p, base, 10);
if nops(Lk)+nops(Lp) = nops(convert(Lk, set) union convert(Lp, set)) then p fi
end proc:
map(f, [$1..10^5]); # Robert Israel, Oct 24 2019
MATHEMATICA
Do[a=FromDigits[Join[Flatten[IntegerDigits[{Prime[n], n}]]]]; If[Max[DigitCount[a]] == 1, Print[Prime[n]]], {n, 1, 10^3}] (* Metin Sariyar, Oct 25 2019 *)
Select[Prime[Range[400]], Max[DigitCount[# 10^IntegerLength[PrimePi[#]]+PrimePi[#]]]<2&] (* Harvey P. Dale, May 18 2023 *)
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
Juri-Stepan Gerasimov, Jan 12 2009
EXTENSIONS
Removed 43 (which shares digits with 14) and 479 (which shares digits with 92) - R. J. Mathar, Feb 27 2009
Edited by N. J. A. Sloane, Aug 04 2009
STATUS
approved