|
%I #8 Aug 09 2015 00:43:02
%S 3,10,2,8,17,49,4,23,41,7,39,29,6,50,79,121,30,151,38,19,267,48,174,
%T 21,287,422,240,24,94,22,16,215,861,231,143,140,396,902,18,134,340,
%U 310,269,58,12,550,479,210,229,612,221,271,194,540,145,718,168,184,90,14,272
%N Where n-th prime occurs in A111267.
%p 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
%Y Cf. A111267, A111287.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 03 2005
%E More terms from _R. J. Mathar_, Aug 20 2007
|
