LINKS
Robert Israel, <a href="/A088290/b088290_1.txt">Table of n, a(n) for n = 1..10000</a>
The OEIS is supported by the many generous donors to the OEIS Foundation.
Robert Israel, <a href="/A088290/b088290_1.txt">Table of n, a(n) for n = 1..10000</a>
proposed
approved
editing
proposed
Robert Israel, <a href="/A088290/b088290_1.txt">Table of n, a(n) for n = 1..10000</a>
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
approved
editing
proposed
approved
editing
proposed
0,1
1,1
Primes in A101317.
Offset changed by Andrew Howroyd, Sep 19 2024
approved
editing
_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Sep 29 2003
edidQ[n_]:=Module[{idn=IntegerDigits[n]}, idn[[1]]+idn[[-1]]==Total[Most[ Rest[idn]]]]; Select[Prime[Range[169, 3000]], edidQ] (* From _Harvey P. Dale, _, Apr 20 2012 *)
editing
approved