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

1, 9, 10, 15, 16, 22, 25, 26, 28, 34, 36, 40, 46, 49, 50, 51, 52, 55, 56, 58, 64, 65, 66, 70, 76, 78, 81, 82, 85, 91, 93, 96, 106, 111, 115, 116, 120, 121, 126, 130, 133, 135, 136, 141, 144, 145, 146, 156, 159, 161, 162, 166, 169, 171, 172, 175, 176, 177, 185, 186, 187, 196

Offset

1,2

Links

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

Mathematica

nmax = 197; Position[CoefficientList[Series[Sum[x^Prime[i], {i, 1, nmax}] Sum[x^j^4, {j, 0, nmax^(1/4)}], {x, 0, nmax}], x] // Rest, 0] // Flatten

Crossrefs

Cf. A014090, A045911, A356295, A365126, A365127, A365169.

Sequence in context: A194593 A005381 A175090 * A197113 A099616 A073829

Adjacent sequences: A365163 A365164 A365165 * A365167 A365168 A365169

Keyword

nonn

Author

Ilya Gutkovskiy, Aug 24 2023

Status

approved