cp's OEIS Frontend

A381245 Numbers that are partial sums of the reverses of the sequence of primes and are reverses of primes.

%I A381245 #8 Feb 18 2025 18:50:39
%S A381245 2,5,17,358,775,3145,7813,10277,13978,15232,19478,32324,36056,70042,
%T A381245 71396,72893,76856,102374,141982,155585,301291,331357,332588,354643,
%U A381245 717817,763586,791641,799532,922981,931705,935117,940241,952975,993551,1020461,1028383,1060075,1094099,1126831,1145257
%N A381245 Numbers that are partial sums of the reverses of the sequence of primes and are reverses of primes.
%C A381245 Intersection of A071602 (in that order) and A004087.
%H A381245 Robert Israel, <a href="/A381245/b381245.txt">Table of n, a(n) for n = 1..10000</a>
%e A381245 a(4) = 358 is a term because 358 = A071602(11) is the sum of the reverses of the first 11 primes, and is the reverse of the prime 853.
%e A381245 A071602(7) = 130 is not a term, because 130 is not the reverse of a prime, even though the reverse of 130 is a prime.
%p A381245 rev:= proc(n) local L,i;
%p A381245   L:= convert(n,base,10);
%p A381245   add(L[-i]*10^(i-1),i=1..nops(L))
%p A381245 end proc:
%p A381245 PR:= map(rev, select(isprime, [$1..10000]):
%p A381245 SPR:= ListTools:-PartialSums(PR):
%p A381245 select(t -> t mod 10 <> 0 and isprime(rev(t)),SPR);
%Y A381245 Cf. A004087, A071602.
%K A381245 nonn,base
%O A381245 1,1
%A A381245 _Robert Israel_, Feb 17 2025