login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A119850 Positions where A119842 is greater than one. 3
36, 48, 72, 80, 100, 108, 112, 120, 144, 162, 168, 176, 180, 192, 196, 200, 208, 225, 252, 264, 270, 272, 280, 288, 300, 304, 312, 320, 324, 368, 378, 392, 396, 400, 405, 408, 420, 432, 440, 441, 448, 450, 456, 464, 468, 480, 484, 496, 500, 520, 552, 567 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

MATHEMATICA

b[s_, t_] := b[s, t] = If[Length[s] < 1, 1, Sum[If[Mod[PrimeOmega[x], 2] == 1 - t && Length[Select[s, Mod[#, x] == 0 &]] == 1, b[s~Complement~{x}, 1 - t], 0], {x, s}]]; 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]], Mod[PrimeOmega[m], 2]]]; A119842 = Array[a, 1000]; A119850 = Position[A119842, n_ /; n > 1] // Flatten (* Jean-François Alcover, Mar 03 2016, after Alois P. Heinz *)

CROSSREFS

Subset of A119848.

Sequence in context: A287840 A244326 A064597 * A033701 A260920 A132956

Adjacent sequences:  A119847 A119848 A119849 * A119851 A119852 A119853

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jun 04 2006

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 July 7 14:34 EDT 2020. Contains 335495 sequences. (Running on oeis4.)