|
Search: id:A082737
|
|
|
| A082737 |
|
Triangle read by rows in which the first row contains a 1 and the n-th row contains n primes not included in the previous rows such that the sum of a row is a perfect square. |
|
+0
4
|
|
| 1, 2, 7, 3, 5, 17, 11, 13, 19, 101, 23, 29, 31, 37, 241, 41, 43, 47, 53, 59, 157, 61, 67, 71, 73, 79, 83, 191, 89, 97, 103, 107, 109, 113, 127, 1019, 131, 137, 139, 149, 151, 163, 167, 173, 311, 179, 181, 193, 197, 199, 211, 223, 227, 229, 277, 233, 239, 251, 257
(list; table; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Another rearrangement of primes and 1.
|
|
EXAMPLE
|
1
2 7
3 5 17
11 13 19 101
23 29 31 37 241
...
|
|
MAPLE
|
A082737 := proc(nmax) local a, n, r, i, rsum, c, j ; a := [1, 2, 7] ; n := 3 ; i := 1 ; while nops(a)< nmax do r := [] ; for c from 1 to n-1 do while ithprime(i) in a or ithprime(i) in r do i:= i+1 ; od ; r := [op(r), ithprime(i)] ; i:= i+1 ; od ; j := i+1 ; rsum := sum(op(k, r), k=1..nops(r)) ; while not issqr( rsum+ithprime(j)) do j := j+1 ; od ; r := [op(r), ithprime(j)] ; a := [op(a), op(r)] ; n := n+1 ; od ; RETURN(a) ; end: a := A082737(80) : for n from 1 to nops(a) do printf("%d, ", op(n, a)) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 12 2006
|
|
CROSSREFS
|
Cf. A082738, A082739, A082740.
Sequence in context: A088538 A011049 A075639 this_sequence A104957 A083119 A011304
Adjacent sequences: A082734 A082735 A082736 this_sequence A082738 A082739 A082740
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 14 2003
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 12 2006
|
|
|
Search completed in 0.002 seconds
|
