cp's OEIS Frontend

A339437 Numbers k such that A339436(k) is prime.

%I A339437 #11 Feb 06 2021 22:08:20
%S A339437 6,10,22,34,58,82,118,142,202,214,216,252,274,298,330,358,382,390,394,
%T A339437 454,468,478,490,538,562,588,622,684,690,694,726,798,838,858,862,870,
%U A339437 910,922,924,1042,1044,1122,1138,1176,1198,1210,1224,1234,1254,1282,1290,1318,1332,1440,1482,1518,1540
%N A339437 Numbers k such that A339436(k) is prime.
%C A339437 All terms are even.
%H A339437 Robert Israel, <a href="/A339437/b339437.txt">Table of n, a(n) for n = 1..10000</a>
%e A339437 a(15)=330 is a member because 330 = 2*3*5*11 and A339436(330) = 2 + 2*3 + 2*3*5 + 3*5*11 + 5*11 + 11 = 269 is prime.
%p A339437 A339436:= proc(n) local L,m;
%p A339437   L:= sort(map(t -> t[1]$t[2],ifactors(n)[2]));
%p A339437   m:= nops(L);
%p A339437   add(mul(L[i],i=1..j)+mul(L[i],i=j+1..m),j=1..m-1)
%p A339437 end proc:
%p A339437 select(isprime @ A339436, [seq(i,i=2 .. 10000, 2)]);
%Y A339437 Includes A108605. Disjoint from A014612.
%Y A339437 Cf. A339436.
%K A339437 nonn
%O A339437 1,1
%A A339437 _J. M. Bergot_ and _Robert Israel_, Dec 04 2020