A119840 Positions where new distinct values appear in A114717.

1, 6, 12, 24, 30, 36, 60, 72, 96, 120, 144, 180, 192, 210, 216, 240, 288, 360, 384, 420, 432, 480, 576, 720, 768, 840, 864, 900, 960, 1080, 1152, 1260, 1296, 1440, 1536, 1680, 1728, 1800, 1920, 2160, 2304, 2310, 2520, 2592, 2880, 3072, 3360, 3456, 3600, 3840, 4320, 4608, 4620

Offset

1,2

Links

Alois P. Heinz, Table of n, a(n) for n = 1..69

Mathematica

b[s_] := b[s] = If[Length[s] < 2, 1, Sum[If[Length[Select[s, Mod[#, x] == 0 &]] == 1, b[Complement[s, {x}]], 0], {x, s}]]; a[n_] := a[n] = Module[{l, m}, l = Sort[FactorInteger[n], #1[[2]] > #2[[2]] &]; m = Product[Prime[i ]^l[[ i]][[2]], {i, 1, Length[l]}]; b[Divisors[m][[2 ;; -2]] ]]; A119840 = Reap[For[k = 1, k < 5000, k++, ak = a[k]; If[FreeQ[Array[a, k - 1], ak], Print[k]; Sow[k]]]][[2, 1]] (* Jean-François Alcover, Mar 03 2016, after Alois P. Heinz *)

Crossrefs

Subset of A025487. Cf. A119500, A119841.

Sequence in context: A226453 A307225 A261476 * A298033 A358507 A358526

Adjacent sequences: A119837 A119838 A119839 * A119841 A119842 A119843

Keyword

nonn

Author

Antti Karttunen, May 26 2006

Extensions

a(19)-a(53) from Alois P. Heinz, Aug 06 2012

Status

approved