login
This site is supported by donations to The OEIS Foundation.

 

Logo


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 A069171 A071611

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 14 11:45 EDT 2019. Contains 327996 sequences. (Running on oeis4.)