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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A192506 Numbers that are neither ludic nor prime. 7
 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 26, 27, 28, 30, 32, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 64, 65, 66, 68, 69, 70, 72, 74, 75, 76, 78, 80, 81, 82, 84, 85, 86, 87, 88, 90, 92, 93, 94 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Intersection of A002808 and A192607; (1-A010051(a(n)))*(1-A192490(a(n)))=1; a(n) = A091212(n) for n <= 60. a(n) = A175526(n) for n <= 53. - Reinhard Zumkeller, Jul 12 2011 In other words, composite numbers that are nonludic. - Antti Karttunen, May 11 2015 LINKS Reinhard Zumkeller (first 1000 terms) & Antti Karttunen, Table of n, a(n) for n = 1..10000 MATHEMATICA a3309[nmax_] := a3309[nmax] = Module[{t = Range[2, nmax], k, r = {1}}, While[Length[t] > 0, k = First[t]; AppendTo[r, k]; t = Drop[t, {1, -1, k}]]; r]; ludicQ[n_, nmax_] /; 1 <= n <= nmax := MemberQ[a3309[nmax], n]; terms = 1000; f[nmax_] := f[nmax] = Select[Range[nmax], !ludicQ[#, nmax] && !PrimeQ[#]&] // PadRight[#, terms]&; f[nmax = terms]; f[nmax = 2 nmax]; While[f[nmax] != f[nmax/2], nmax = 2 nmax]; seq = f[nmax] (* Jean-François Alcover, Dec 10 2021, after Ray Chandler in A003309 *) PROG (Haskell) a192506 n = a192506_list !! (n-1) a192506_list = filter ((== 0) . a010051) a192607_list (Scheme, with Antti Karttunen's IntSeq-library) (define A192506 (MATCHING-POS 1 1 (lambda (n) (and (zero? (A192490 n)) (zero? (A010051 n)))))) ;; Antti Karttunen, May 07 2015 CROSSREFS Cf. A257689 (complement, either ludic or prime), A192503 (ludic and prime), A192504 (ludic and nonprime), A192505 (nonludic and prime). Cf. A010051, A192490, A002808, A192607. a(n) differs from A091212(n) and A205783(n+1) for the first time at n=37, where a(37) = 55, while 55 is missing from both A091212 and A205783. Differs from A175526 for the first time at n=54, where a(54) = 78, while A175526(54) = 77, a term which is missing from here. Sequence in context: A046349 A115683 A175526 * A091212 A205783 A077094 Adjacent sequences: A192503 A192504 A192505 * A192507 A192508 A192509 KEYWORD nonn AUTHOR Reinhard Zumkeller, Jul 05 2011 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 June 20 10:21 EDT 2024. Contains 373515 sequences. (Running on oeis4.)