This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097381 #9 Feb 01 2024 08:30:20
%S A097381 1,2,6,10,12,14,18,24,26,48,54,60,66,74,84,94,96,98,110,120,130,132,
%T A097381 134,146,162,168,170,192,204,206,210,230,234,240,264,300,314,326,336,
%U A097381 372,384,386,406,408,430,466,470,474,480,486,490,528,570,588,600,634,646
%N A097381 Numbers m such that 1+SquareFreeKernel(m)*CubeFreeKernel(m) is prime.
%H A097381 Amiram Eldar, <a href="/A097381/b097381.txt">Table of n, a(n) for n = 1..10000</a>
%F A097381 A097378(a(n)) is prime.
%t A097381 f[p_, e_] := p^(1 + Min[e, 2]); s[1] = 2; s[n_] := 1 + Times @@ f @@@ FactorInteger[n]; Select[Range[650], PrimeQ[s[#]] &] (* _Amiram Eldar_, Feb 01 2024 *)
%o A097381 (PARI) is(n) = {my(f = factor(n)); isprime(1 + prod(i = 1, #f~, f[i, 1]^(1 + min(f[i, 2], 2))));} \\ _Amiram Eldar_, Feb 01 2024
%Y A097381 Cf. A007947, A007948, A097379, A097380.
%K A097381 nonn
%O A097381 1,2
%A A097381 _Reinhard Zumkeller_, Aug 11 2004