A095164 Index of the first occurrence of n in A095163.
1, 2, 3, 8, 5, 18, 7, 32, 27, 50, 11, 84, 13, 98, 75, 128, 17, 162, 19, 200, 147, 242, 23, 312, 125, 338, 243, 392, 29, 510, 31, 512, 363, 578, 245, 684, 37, 722, 507, 920, 41, 882, 43, 968, 765, 1058, 47, 1392, 343, 1250, 867, 1352, 53, 1458, 605, 1624, 1083
Offset: 1
Keywords
Programs
-
Maple
A095163 := proc(nmax) local a,dvs,d,n; a := [1,2,3] ; for n from 4 to nmax do dvs := sort(convert(numtheory[divisors](n),list)) ; for d in dvs do if ListTools[Occurrences](d,a) < d then a := [op(a),d] ; break; fi; od: od: a ; end: A095164 := proc(n,a095163) local i ; for i from 1 to nops(a095163) do if op(i,a095163) = n then RETURN(i) ; fi; od: RETURN(-1) ; end: a095163 := A095163(3700) ; for n from 1 do a095 := A095164(n,a095163) ; if a095 < 0 then break; else printf("%d,",a095) ; fi; od: # R. J. Mathar, Oct 28 2008
Extensions
More terms from Nadia Heninger, Jul 07 2005
More terms from R. J. Mathar, Oct 28 2008
Comments