OFFSET
1,1
COMMENTS
This is a proper subsequence of A179024. - Jianing Song, Jul 10 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
Digs:= [0, 1, 2, 4, 6, 8, 9]:
f:= proc(n) local L, x;
L:= convert(n, base, 7);
if numboccur(2, L) <> 1 then return NULL fi;
x:= add(Digs[L[i]+1]*10^(i-1), i=1..nops(L));
if isprime(x) then x fi
end proc:
map(f, [$1..2000]); # Robert Israel, Jul 10 2018
MATHEMATICA
Select[Prime[Range[600]], DigitCount[#, 10, 2]==1&&NoneTrue[ DeleteCases[ IntegerDigits[#], 2], PrimeQ]&] (* Harvey P. Dale, Feb 20 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 25 2010
EXTENSIONS
Terms confirmed by Ray Chandler, Jul 13 2010
Definition clarified by Harvey P. Dale, Feb 20 2022
STATUS
approved