カレン数は
\begin{align}
n \times 2^n + 1
\end{align}
であるが
\begin{align}
n \times p^n + 1
\end{align}
を考える。
n=10;
count=1;
p=3;
for i=0:1:n
K(i+1)=i*p^i+1;
if isprime(K(i+1))==1
Kp(count)=i*p^i+1;
count=count+1;
end
end
K
Kp
p=3のときは19と52489が該当する素数になる。
コメント