|
|
|
|
|
|
|
|
|
#21 by Vaclav Kotesovec at Sun Feb 28 03:06:21 EST 2016
|
|
|
|
|
|
|
|
#20 by Vaclav Kotesovec at Sun Feb 28 02:58:05 EST 2016
|
|
| COMMENTS
|
Numbers in A025300 but not in A025319 are exactly those numbers of the form 2*p_1^(2*a_1)*p_2^(2*a_2)*...*p_m^(2*a_m)*q^16 where p_i are primes of the form 4k+3 and q is a prime of the form 4k+1. Thus 2*5^16 is the smallest term in A025300 that is not in A025319. - . - _Chai Wah Wu, _, Feb 27 2016
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#19 by Chai Wah Wu at Sat Feb 27 22:29:33 EST 2016
|
|
|
|
|
|
|
|
#18 by Chai Wah Wu at Sat Feb 27 22:29:23 EST 2016
|
|
| LINKS
|
Chai Wah Wu, <a href="/A025319/b025319.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
|
|
|
#17 by Chai Wah Wu at Sat Feb 27 20:22:58 EST 2016
|
|
| COMMENTS
|
Numbers in A025300 but not in A025319 are exactly those numbers of the form 2*p_1^(2*a_1)*p_2^(2*a_2)*...*p_m^(2*a_m)*q^16 where p_i are primes of the form 4k+3 and q is a prime of the form 4k+1. Thus 2*5^16 is the smallest term in A025300 that is not in A025319. - Chai Wah Wu, Feb 27 2016
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#16 by Vaclav Kotesovec at Sat Feb 27 09:25:56 EST 2016
|
|
|
|
|
|
|
|
#15 by Vaclav Kotesovec at Sat Feb 27 09:16:03 EST 2016
|
|
| COMMENTS
|
Subsequence of A025300. But sequences A025319 and A025300 are different. 2*5^16 = 305175781250 = 36425^2 + 551225^2 = 78125^2 + 546875^2 = 119375^2 + 539375^2 = 189311^2 + 518977^2 = 228125^2 + 503125^2 = 265625^2 + 484375^2 = 301595^2 + 462835^2 = 359875^2 + 419125^2 = 390625^2 + 390625^2 (not distinct squares) is not in A025319. - Vaclav Kotesovec, Feb 27 2016
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#14 by Vaclav Kotesovec at Sat Feb 27 08:01:14 EST 2016
|
|
|
|
|
|
|
|
#13 by Vaclav Kotesovec at Sat Feb 27 07:48:57 EST 2016
|
|
|
|
|
|
|
|
#12 by Charles R Greathouse IV at Sun Aug 03 14:01:14 EDT 2014
|
|
| MATHEMATICA
|
nn = 337025; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i - 1}]; Flatten[Position[t, _?(# >= 9 &)]] (* &)]] (* _T. D. Noe, _, Apr 07 2011 *)
|
|
|
|
|
Discussion
|
| Sun Aug 03
| 14:01
| OEIS Server: https://oeis.org/edit/global/2267
|
|
|
|
|
|
