OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
176 = (1)(7)(6) -> (2)(17)(13) = 21713, which is a prime, so 176 is in the sequence.
MAPLE
filter := proc(n) local L;
L:= convert(n, base, 10);
L:= subs([0=1, seq(i=ithprime(i), i=1..9)], L);
L:= map(t -> op(convert(t, base, 10)), L);
isprime(add(L[i]*10^(i-1), i=1..nops(L)))
end proc:
select(filter, [$1..1000]); # Robert Israel, Oct 16 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 1999
EXTENSIONS
Offset corrected by Robert Israel, Oct 16 2018
STATUS
approved