cp's OEIS Frontend

A340744 Primes in A340618, in the order in which they occur.

%I A340744 #8 Jan 19 2021 04:48:28
%S A340744 31,23,19,43,73,53,43,37,61,43,83,73,43,73,53,67,79,73,61,59,173,151,
%T A340744 109,223,163,109,127,109,109,233,109,109,163,139,113,109,109,181,109,
%U A340744 109,523,353,199,383,331,199,223,313,199,173,163,271,229,211,199,199,751,503,433,307,229,313,2411
%N A340744 Primes in A340618, in the order in which they occur.
%F A340744 a(n) = A316650(A340618(n)).
%e A340744 a(4) = A316650(23) = 43 is the fourth term in A316650 that is prime.
%p A340744 f:= proc(n) local a, b, c,p;
%p A340744   c:= convert(convert(n, base, 10), `+`);
%p A340744   a:= floor(n/c);
%p A340744   b:= n mod c;
%p A340744   p:= 10^(1+ilog10(b))*a+b;
%p A340744   if isprime(p) then p fi;
%p A340744 end proc:
%p A340744 map(f, [$1..1000]);
%Y A340744 Cf. A316650, A340618.
%K A340744 nonn,look
%O A340744 1,1
%A A340744 _J. M. Bergot_ and _Robert Israel_, Jan 18 2021