A380330 - OEIS

%I #19 Mar 31 2025 23:09:58

%S 5,11,29,37,79,97,191,211,257,331,409,487,701,733,809,907,1123,1163,

%T 1543,1637,1693,1823,2411,2591,2819,2939,2999,3109,3389,3511,4703,

%U 4861,5077,5147,5519,5591,6449,6689,6857,7103,7699,7789,8999,9091,9277,9371,11197

%N a(n) = A151800(prime(n)*A151800(n)).

%e a(1) = A151800(prime(1)*A151800(1)) = A151800(2*2) = 5.

%t Table[NextPrime[Prime[n]*NextPrime[n]], {n, 1, 80}]

%o (PARI) p(n) = nextprime(n+1);

%o a(n) = p(prime(n)*p(n)); \\ _Michel Marcus_, Jan 27 2025

%Y Cf. A000040, A151800.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 21 2025