|
Search: id:A111240
|
|
| |
|
| 2, 3, 9, 23, 40, 22, 67, 49, 43, 48, 58, 89, 76, 151, 98, 24, 44, 59, 185, 100, 271, 122, 207, 178, 84, 217, 130, 31, 88, 145, 357, 119, 138, 309, 123, 47
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
The 4th prime, 7, is A109890(23), so a(4) = 23.
|
|
MAPLE
|
A109890 := proc(nmin) local a, i, k, apsum; a := [1] ; apsum := 1 ; while nops(a) < nmin do k := 1; while k in a or not ( apsum mod k = 0 or k mod apsum = 0 ) do k := k+1 ; od ; a := [op(a), k] ; apsum := apsum+k ; od; RETURN(a) ; end: A111240 := proc(nmin) local a, a109890, n, i; a := [] ; a109890 := A109890(nmin) ; n := 1; while member( ithprime(n), a109890, 'i') do a := [op(a), i] ; n := n+1 ; od; RETURN(a) ; end: A111240(560) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 20 2007
|
|
CROSSREFS
|
Adjacent sequences: A111237 A111238 A111239 this_sequence A111241 A111242 A111243
Sequence in context: A111238 A057832 A089421 this_sequence A056198 A038523 A096237
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
njas, Oct 30 2005
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 20 2007
|
|
|
Search completed in 0.002 seconds
|