|
|
A373970
|
|
Squares equal to the sum of a cube and a factorial number.
|
|
0
|
|
|
1, 9, 25, 121, 784, 1024, 5041, 363609, 542939080336, 160351569000000, 51312167754301440000, 65249379457597440000, 449519240612413440000, 957230928468541440000, 4797276365676433637376, 16367773504928806600704, 308090303428827709440000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
1 = 0^3 + 1!.
25 = 1^3 + 4!.
784 = 4^3 + 6!.
5041 = 1^3 + 7!.
|
|
PROG
|
(PARI) is1(n) = {my(sq = n^2, f = 1, k = 1); while(f <= sq && !ispower(sq - f, 3), k++; f *= k); f <= sq; }
lista(kmax) = for(k = 1, kmax, if(is1(k), print1(k^2, ", "))); \\ Amiram Eldar, Jun 24 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|