A236767 Numbers whose square is a fourth power plus a prime.
2, 10, 37, 82, 442, 577, 730, 901, 1090, 1297, 1765, 2026, 4357, 5185, 5626, 7570, 8650, 9217, 9802, 10405, 11026, 15130, 17425, 18226, 23410, 24337, 26245, 31330, 34597, 35722, 40402, 41617, 47962
Offset: 1
Keywords
Examples
2 is a term because 2^2 = 1^4 + 3; 10 is a term because 10^2 = 3^4 + 19; 37 is a term because 37^2 = 6^4 + 73.
Links
- Hans Havermann, Table of n, a(n) for n = 1..1000
- John Robertson, Integers of the form x^2+kp (see last paragraph)
Programs
-
Mathematica
r=Range[10000]^4; j=1; Do[c=i^2; k=c^2-Take[r,i]; Do[c++; j=j+2; k=k+j; If[MemberQ[PrimeQ[k], True], Print[c]], {2*i+1}], {i, 10000}] (* brute force *) s=A089001; s^2+1 (* based on formula *)
Formula
A089001^2 + 1
Comments