|
| |
|
|
A111240
|
|
Index at which n-th prime appears in A109890.
|
|
2
| |
|
|
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, 590, 150, 334, 684, 245, 39, 139, 81, 66, 70, 253, 642, 737, 227, 50, 144, 131, 422, 496, 479, 516, 389, 715
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
| Sequence in context: A057832 A089421 A151825 * A056198 A143742 A038523
Adjacent sequences: A111237 A111238 A111239 * A111241 A111242 A111243
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Oct 30 2005
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 20 2007
More terms from David Wasserman (dwasserm(AT)earthlink.net), Jan 07 2009
|
| |
|
|
