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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A119841 Distinct values in A114717 in order of appearance. 3
1, 2, 5, 14, 48, 42, 2452, 462, 132, 183958, 6006, 4877756, 429, 1680384, 24024, 17454844, 87516, 20071150430, 1430, 409158464142, 1662804, 1941406508, 1385670, 129586764260850, 4862, 269333638458151764, 140229804, 6405442434150, 242201554680, 6708527580006468 (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] // Rest // Most]]; A119841 = Reap[For[k = 1, k < 2000, k++, If[FreeQ[Array[a, k - 1], a[k]], Print[k, " ", a[k]]; Sow[a[k]]]]][[2, 1]] (* Jean-Fran├žois Alcover, Mar 03 2016, after Alois P. Heinz *)

CROSSREFS

a(n) = A114717(A119840(n)). Cf. A119499.

Sequence in context: A109156 A143918 A129867 * A149905 A149906 A129778

Adjacent sequences:  A119838 A119839 A119840 * A119842 A119843 A119844

KEYWORD

nonn

AUTHOR

Antti Karttunen, May 26 2006

EXTENSIONS

a(19)-a(30) 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 January 18 06:34 EST 2019. Contains 319269 sequences. (Running on oeis4.)