login
A095164
Index of the first occurrence of n in A095163.
4
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,2
COMMENTS
Is this the same as A075384? - R. J. Mathar, Oct 28 2008
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 01 2004
EXTENSIONS
More terms from Nadia Heninger, Jul 07 2005
More terms from R. J. Mathar, Oct 28 2008
STATUS
approved