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 A365168 #12 Aug 29 2024 02:41:11
%S A365168 3,4,6,8,12,14,18,19,20,21,23,24,27,29,30,32,33,35,38,39,42,44,45,47,
%T A365168 48,53,54,57,59,60,62,63,68,69,72,74,75,77,80,83,84,86,87,88,89,90,92,
%U A365168 94,95,98,99,100,102,104,105,108,110,112,113,114,117,118,119,122,123,124,125
%N A365168 Numbers that are the sum of a prime number and a fourth power of a positive integer.
%H A365168 Robert Israel, <a href="/A365168/b365168.txt">Table of n, a(n) for n = 1..10000</a>
%p A365168 N:= 200: # for terms up to N
%p A365168 P:= select(isprime,{$2..N-1}):
%p A365168 F:= {seq(i^4,i=1..floor(N^(1/4)))}:
%p A365168 sort(convert({seq(seq(s+t,s=P),t=F)},list)); # _Robert Israel_, Aug 28 2024
%t A365168 nmax = 125; f[x_] := Sum[x^Prime[i], {i, 1, nmax}] Sum[x^j^4, {j, 1, nmax^(1/4)}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]
%Y A365168 Cf. A058654, A307647, A365127, A365167, A365169.
%K A365168 nonn
%O A365168 1,1
%A A365168 _Ilya Gutkovskiy_, Aug 24 2023