A371223
Perfect powers (A001597) equal to the sum of a factorial number (A000142) and a Fibonacci number (A000045).
Original entry on oeis.org
1, 4, 8, 9, 25, 27, 32, 36, 121, 125, 128, 2704, 5041, 5184
Offset: 1
128 is a term because 128 = 2^7 and 128 = 5! + 8, where 8 is a Fibonacci number.
A373970
Squares equal to the sum of a cube and a factorial number.
Original entry on oeis.org
1, 9, 25, 121, 784, 1024, 5041, 363609, 542939080336, 160351569000000, 51312167754301440000, 65249379457597440000, 449519240612413440000, 957230928468541440000, 4797276365676433637376, 16367773504928806600704, 308090303428827709440000
Offset: 1
1 = 0^3 + 1!.
25 = 1^3 + 4!.
784 = 4^3 + 6!.
5041 = 1^3 + 7!.
-
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
Comments