A140752
Indices of elements of A005179 that belong to A134865 (in order of their appearance in A134865). The sorted version of this sequence is given by A138394.
Original entry on oeis.org
1, 2, 3, 4, 6, 8, 9, 10, 16, 20, 24, 30, 48, 60, 64, 72, 80, 84, 100, 108, 126, 192, 162, 224, 189, 384, 448, 512, 576, 672, 11520
Offset: 1
A134865
Numbers k meeting the following criterion: if k is a multiple of d, then it is also a multiple of the smallest number with same number of divisors as d.
Original entry on oeis.org
1, 2, 4, 6, 12, 24, 36, 48, 120, 240, 360, 720, 2520, 5040, 7560, 10080, 15120, 20160, 45360, 50400, 100800, 332640, 352800, 665280, 705600, 4324320, 8648640, 17297280, 21621600, 43243200, 13492656777600
Offset: 1
60 is a multiple of 30 with 8 divisors, but not of 24 (the smallest number with 8 divisors) so 60 is not a term of this sequence.
-
a = {}; For[n = 1, n < 10000, n++, b = Divisors[n]; c = 1; For[i = 1, i < Length[b] + 1, i++, j = 1; While[Length[Divisors[j]] < Length[Divisors[b[[i]]]], j++ ]; If[ ! Mod[n, j] == 0, c = 0]]; If[c == 1, AppendTo[a, n]]]; a (* Stefan Steinerberger, Feb 05 2008 *)
-
isA134865(n)={ n%2 & return(n==1); fordiv(n, d, bigomega(d)>1 || next; nd=numdiv(d); for(k=4, d, numdiv(k)==nd || next; n%k & return; break)); 1 }
for(n=1,10^7,if(isA134865(n),print1(n,", "))); \\ R. J. Mathar, May 17 2008
A140753
Subsequence of elements of A005179 that appear in A134865.
Original entry on oeis.org
1, 2, 4, 6, 12, 24, 36, 48, 120, 240, 360, 720, 2520, 5040, 7560, 10080, 15120, 20160, 45360, 50400, 100800, 352800, 705600, 332640, 665280, 4324320, 8648640, 17297280, 21621600, 43243200, 13492656777600
Offset: 1
Showing 1-3 of 3 results.
Comments