A111272 Where n-th prime occurs in A111267.

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

Offset

1,1

Links

Table of n, a(n) for n=1..61.

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, Aug 20 2007

Crossrefs

Cf. A111267, A111287.

Sequence in context: A234935 A016450 A179397 * A124692 A091043 A321118

Adjacent sequences: A111269 A111270 A111271 * A111273 A111274 A111275

Keyword

nonn

Author

N. J. A. Sloane, Nov 03 2005

Extensions

More terms from R. J. Mathar, Aug 20 2007

Status

approved