The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A287391 Nonprimes k that are a totative of more than one primorial p_n# = A002110(n). 4
 1, 169, 289, 323, 361, 391, 437, 493, 527, 529, 551, 589, 629, 667, 697, 703, 713, 731, 779, 799, 817, 841, 851, 893, 899, 901, 943, 961, 989, 1003, 1007, 1037, 1073, 1081, 1121, 1139, 1147, 1159, 1189, 1207, 1219, 1241, 1247, 1271, 1273, 1333, 1343, 1349, 1357, 1363, 1369, 1387, 1403, 1411 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS From Michael De Vlieger, May 24 2017; corrected and edited by M. F. Hasler, Oct 04 2018: (Start) Let p_n# = A002110(n). This sequence lists 1 and composite numbers p_n# < k < p_(n+1)# for all positive n such that least_prime_factor(k) > p_(n+2). Subset of A285784. If considered as an irregular number triangle T(n,k), row lengths n < A048863(n). (End) LINKS M. F. Hasler, Table of n, a(n) for n = 1..1000 FORMULA For 2 < n <= 108, a(n) = A008367(n-2); for 109 <= n < 120, a(n) = A008367(n). - M. F. Hasler, Oct 04 2018 EXAMPLE From Michael De Vlieger, May 24 2017: (Start) a(1) = 1 since 1 is coprime to all numbers. 169 is in the sequence since it is coprime to p_4# = 210 and p_5# = 2310 yet less than both, however prime(6) = 13 divides 169 thus it is not a totative of p_6# or any larger primorial. (End) MATHEMATICA MapIndexed[Select[Range @@ #1, Function[k, Function[f, And[If[First@ #2 == 1, k == 1 || Total[f[[All, -1]]] > 1, Total[f[[All, -1]]] > 1], CoprimeQ[Last@ #1, k], f[[1, 1]] != Prime[First@ #2 + 1]]]@ FactorInteger[k]]] &, Partition[FoldList[#1 #2 &, 1, Prime@ Range@ 5], 2, 1]] // Flatten (* Michael De Vlieger, May 24 2017 *) PROG (PARI) is(n, f=if(n>1, factor(n)[, 1], 4), P=1)={n!=f&&forprime(p=2, precprime(f-1)-1, n%p||return; (P*=p)>n&&return(1))} \\ M. F. Hasler, Oct 04 2018 CROSSREFS Cf. A002110, A048863, A285784. Sequence in context: A231632 A202004 A020249 * A325421 A296304 A156159 Adjacent sequences:  A287388 A287389 A287390 * A287392 A287393 A287394 KEYWORD nonn AUTHOR Jamie Morken, May 24 2017 EXTENSIONS Edited by Michael De Vlieger, May 24 2017 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.

Last modified May 29 16:43 EDT 2020. Contains 334704 sequences. (Running on oeis4.)