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,2

Comments

Is this the same as A075384? - R. J. Mathar, Oct 28 2008

Links

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

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

Cf. A095161, A095162, A095163, A095165.

Sequence in context: A168014 A050369 A070935 * A075384 A072500 A376014

Adjacent sequences: A095161 A095162 A095163 * A095165 A095166 A095167

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