OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
1021 is a member 1+1 = 0+2 = 2..
MAPLE
filter:= proc(n) local L, i;
if not isprime(n) then return false fi;
L:= convert(n, base, 10);
L[1] + L[-1] = add(L[i], i=2..nops(L)-1)
end proc:
select(filter, [seq(i, i=101..10^4, 2)]); # Robert Israel, Oct 30 2024
MATHEMATICA
edidQ[n_]:=Module[{idn=IntegerDigits[n]}, idn[[1]]+idn[[-1]]==Total[Most[ Rest[idn]]]]; Select[Prime[Range[169, 3000]], edidQ] (* Harvey P. Dale, Apr 20 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 29 2003
EXTENSIONS
More terms from David Wasserman, Aug 04 2005
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved