|
Search: id:A095164
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Is this the same as A075384? [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 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: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 28 2008]
|
|
CROSSREFS
|
Cf. A095161, A095162, A095163, A095165.
Sequence in context: A004730 A050369 A070935 this_sequence A075384 A072500 A062956
Adjacent sequences: A095161 A095162 A095163 this_sequence A095165 A095166 A095167
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 01 2004
|
|
EXTENSIONS
|
More terms from Nadia Heninger (nadiah(AT)cs.princeton.edu), Jul 07 2005
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 28 2008
|
|
|
Search completed in 0.002 seconds
|
