The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A119840 Positions where new distinct values appear in A114717. 4
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 1 12:28 EST 2023. Contains 359993 sequences. (Running on oeis4.)