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
Keywords
Programs
-
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
Extensions
More terms from R. J. Mathar, Aug 20 2007