OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
rev:= proc(n) local L, i;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
PR:= map(rev, select(isprime, [$1..10000])):
SPR:= ListTools:-PartialSums(PR):
select(t -> t mod 10 <> 0 and isprime(rev(t)), SPR);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Feb 17 2025
STATUS
approved
