cp's OEIS Frontend

A344021 Numbers k such that A061762(k) and k+A061762(k) are both prime.

%I A344021 #11 May 07 2021 10:31:16
%S A344021 1,12,16,32,34,54,56,78,104,106,160,232,236,250,252,298,302,304,326,
%T A344021 328,340,362,382,388,474,490,502,508,526,560,580,610,650,656,670,676,
%U A344021 706,740,760,838,850,890,898,928,940,980,1004,1006,1024,1028,1042,1048,1082,1084,1152,1190,1192,1246,1248
%N A344021 Numbers k such that A061762(k) and k+A061762(k) are both prime.
%H A344021 Robert Israel, <a href="/A344021/b344021.txt">Table of n, a(n) for n = 1..10000</a>
%e A344021 a(3) = 16 is a term because A061762(16) = 1*6+1+6=13 is prime and 16+13=29 is prime.
%p A344021 f:= proc(n) local L;
%p A344021 L:= convert(n,base,10);
%p A344021 convert(L,`*`)+convert(L,`+`);
%p A344021 end proc:
%p A344021 filter:= proc(n) local t; t:= f(n); isprime(t) and isprime(n+t) end proc:
%p A344021 select(filter, [1,seq(i,i=2..10000,2)]);
%Y A344021 Cf. A061762, A185300.
%K A344021 nonn,base
%O A344021 1,2
%A A344021 _J. M. Bergot_ and _Robert Israel_, May 06 2021