|
| |
|
|
A111272
|
|
Where n-th prime occurs in A111267.
|
|
2
| |
|
|
3, 10, 2, 8, 17, 49, 4, 23, 41, 7, 39, 29, 6, 50, 79, 121, 30, 151, 38, 19, 267, 48, 174, 21, 287, 422, 240, 24, 94, 22, 16, 215, 861, 231, 143, 140, 396, 902, 18, 134, 340, 310, 269, 58, 12, 550, 479, 210, 229, 612, 221, 271, 194, 540, 145, 718, 168, 184, 90, 14, 272
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MAPLE
| A111267 := proc(nmin) local a, k, qn, dvs; a := [1] ; qn := 5 ; while nops(a) < nmin do dvs := sort([op(numtheory[divisors](qn))]) ; for k from 1 to nops(dvs) do if not dvs[k] in a then a := [op(a), dvs[k]] ; qn := qn+ithprime(nops(a)+1) ; break ; fi ; od ; od; RETURN(a) ; end: A111272 := proc(nmin) local a, a111267, n, i; a := [] ; a111267 := A111267(nmin) ; n := 1; while member( ithprime(n), a111267, 'i') do a := [op(a), i] ; n := n+1 ; od; RETURN(a) ; end: A111272(1000) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 20 2007
|
|
|
CROSSREFS
| Cf. A111267, A111287.
Sequence in context: A165590 A016450 A179397 * A124692 A091043 A167790
Adjacent sequences: A111269 A111270 A111271 * A111273 A111274 A111275
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Nov 03 2005
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 20 2007
|
| |
|
|
