A365127 Numbers that are the sum of a prime number and a fourth power of a nonnegative integer.

2, 3, 4, 5, 6, 7, 8, 11, 12, 13, 14, 17, 18, 19, 20, 21, 23, 24, 27, 29, 30, 31, 32, 33, 35, 37, 38, 39, 41, 42, 43, 44, 45, 47, 48, 53, 54, 57, 59, 60, 61, 62, 63, 67, 68, 69, 71, 72, 73, 74, 75, 77, 79, 80, 83, 84, 86, 87, 88, 89, 90, 92, 94, 95, 97, 98, 99, 100

Offset

1,1

Links

Table of n, a(n) for n=1..68.

Mathematica

nmax = 100; f[x_] := Sum[x^Prime[i], {i, 1, nmax}] Sum[x^j^4, {j, 0, nmax^(1/4)}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, nmax}]]

Crossrefs

Cf. A014089, A307646, A365126, A365166, A365168.

Sequence in context: A329299 A173016 A053577 * A093515 A350242 A249724

Adjacent sequences: A365124 A365125 A365126 * A365128 A365129 A365130

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 24 2023

Status

approved