cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A328219 LCM of the prime indices of n, all plus 1.

Original entry on oeis.org

1, 2, 3, 2, 4, 6, 5, 2, 3, 4, 6, 6, 7, 10, 12, 2, 8, 6, 9, 4, 15, 6, 10, 6, 4, 14, 3, 10, 11, 12, 12, 2, 6, 8, 20, 6, 13, 18, 21, 4, 14, 30, 15, 6, 12, 10, 16, 6, 5, 4, 24, 14, 17, 6, 12, 10, 9, 22, 18, 12, 19, 12, 15, 2, 28, 6, 20, 8, 30, 20, 21, 6, 22, 26
Offset: 1

Views

Author

Gus Wiseman, Oct 16 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Crossrefs

Sorted positions of first appearances are A328451.
LCM of prime indices is A290103.
LCM of prime indices minus 1 is A328456.
GCD of prime indices plus 1 is A328169.
Partitions whose parts plus 1 are relatively prime are A318980.
Numbers whose prime indices plus 1 are relatively prime are A318981,
Cf. A003961, A056239, A112798, A258409, A289508, A289509, A328167, A328168.

Programs

  • Mathematica
    Table[If[n==1,1,LCM@@(PrimePi/@First/@FactorInteger[n]+1)],{n,100}]
  • PARI
    A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
A290103(n) = lcm(apply(p->primepi(p),factor(n)[,1]));
A328219(n) = A290103(A003961(n)); \\ Antti Karttunen, Oct 18 2019

Formula

a(n) = A290103(A003961(n)).
If n = A000040(i_1) * ... * A000040(i_k), then a(n) = lcm(1+i_1,...,1+i_k).

A333492 Position of first appearance of n in A271410 (LCM of binary indices).

Original entry on oeis.org

1, 2, 4, 8, 16, 6, 64, 128, 256, 18, 1024, 12, 4096, 66, 20, 32768, 65536, 258, 262144, 24, 68, 1026, 4194304, 132, 16777216, 4098, 67108864, 72, 268435456, 22, 1073741824, 2147483648, 1028, 65538, 80, 264, 68719476736, 262146, 4100, 144, 1099511627776, 70, 4398046511104
Offset: 1

Views

Author

Gus Wiseman, Mar 28 2020

Keywords

Comments

A binary index of n is any position of a 1 in its reversed binary expansion. The binary indices of n are row n of A048793.

Examples

			The sequence together with the corresponding binary expansions and binary indices begins:
      1:                 1 ~ {1}
      2:                10 ~ {2}
      4:               100 ~ {3}
      8:              1000 ~ {4}
     16:             10000 ~ {5}
      6:               110 ~ {2,3}
     64:           1000000 ~ {7}
    128:          10000000 ~ {8}
    256:         100000000 ~ {9}
     18:             10010 ~ {2,5}
   1024:       10000000000 ~ {11}
     12:              1100 ~ {3,4}
   4096:     1000000000000 ~ {13}
     66:           1000010 ~ {2,7}
     20:             10100 ~ {3,5}
  32768:  1000000000000000 ~ {16}
  65536: 10000000000000000 ~ {17}
    258:         100000010 ~ {2,9}

Links

Crossrefs

The version for prime indices is A330225.
The version for standard compositions is A333225.
Let q(k) be the binary indices of k:
- The sum of q(k) is A029931(k).
- The elements of q(k) are row k of A048793.
- The product of q(k) is A096111(k).
- The LCM of q(k) is A271410(k).
- The GCD of q(k) is A326674(k).
GCD of prime indices is A289508.
LCM of prime indices is A290103.
LCM of standard compositions is A333226.
Cf. A000120, A066099, A070939, A074761, A076078, A124767, A285572, A324837, A328219, A328451, A331579, A333227.

Programs

  • Mathematica
    bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1];
q=Table[LCM@@bpe[n],{n,10000}];
Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]

Extensions

Terms a(23) and beyond from Giovanni Resta, Mar 29 2020

A328456 LCM of the prime indices of 2n + 1, all minus 1; a(0) = 0.

Original entry on oeis.org

0, 1, 2, 3, 1, 4, 5, 2, 6, 7, 3, 8, 2, 1, 9, 10, 4, 6, 11, 5, 12, 13, 2, 14, 3, 6, 15, 4, 7, 16, 17, 3, 10, 18, 8, 19, 20, 2, 12, 21, 1, 22, 6, 9, 23, 15, 10, 14, 24, 4, 25, 26, 6, 27, 28, 11, 29, 8, 5, 6, 4, 12, 2, 30, 13, 31, 21, 2, 32, 33, 14, 20, 18, 3, 34
Offset: 0

Views

Author

Gus Wiseman, Oct 17 2019

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The prime indices of 2 * 17 + 1 = 35, all minus 1, are {2,3}, with LCM 6, so a(17) = 6.

Crossrefs

Positions of records (first appearances) are A006005.
The GCD of the prime indices of n, all minus 1, is A328167(n).
The LCM of the prime indices of n, all plus 1, is A328219(n).
Partitions whose parts minus 1 are relatively prime are A328170.
Numbers whose prime indices minus 1 are relatively prime are A328168.
Cf. A056239, A112798, A258409, A289508, A289509, A290103, A318981, A328169, A328451.

Programs

  • Mathematica
    Table[If[n==1,0,LCM@@(PrimePi/@First/@FactorInteger[n]-1)],{n,1,100,2}]

A330225 Position of first appearance of n in A290103 = LCM of prime indices.

Original entry on oeis.org

1, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 35, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271
Offset: 1

Views

Author

Gus Wiseman, Mar 26 2020

Keywords

Comments

Appears to be the prime numbers (A000040) with 2 replaced by 1 and 37 replaced by 35.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Crossrefs

The version for product instead of lcm is A318871
The version for standard compositions is A333225.
The version for binary indices is A333492.
Let q(k) be the prime indices of k:
- The product of q(k) is A003963(k).
- The sum of q(k) is A056239(k).
- The terms of q(k) are row k of A112798.
- The GCD of q(k) is A289508(k).
- The LCM of q(k) is A290103(k).
- The LCM of q(k) + 1 is A328219(k).
Cf. A000837, A074761, A074971, A076078, A285572, A289509, A290104, A319333, A324837, A328451, A331579, A333226.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
q=Table[If[n==1,1,LCM@@primeMS[n]],{n,100}];
Table[Position[q,i][[1,1]],{i,First[Split[Union[q],#1+1==#2&]]}]
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.