A324705 -id:A324705 - cp's OEIS frontend

A324703 Lexicographically earliest sequence containing 3 and all positive integers n such that the prime indices of n - 1 already belong to the sequence.

3, 6, 14, 26, 44, 66, 102, 126, 170, 194, 216, 318, 326, 506, 558, 560, 626, 702, 846, 966, 1014, 1076, 1182, 1314, 1322, 1586, 1626, 1850, 2112, 2162, 2198, 2510, 2526, 2786, 2796, 3126, 3506, 3618, 4050, 4058, 4122, 4226, 4344, 4640, 4826, 5066, 5298, 5376

Offset: 1

Gus Wiseman, Mar 11 2019

nonn

A self-describing sequence, similar to A304360.

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.

Prime indices of A324702.
Cf. A000002, A000720, A001222, A001462, A007097, A045965, A055396, A061395, A064989, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324697, A324698, A324699, A324700, A324701, A324704, A324705.

aQ[n_]:=Switch[n,0,False,3,True,,And@@Cases[FactorInteger[n-1],{p,k_}:>aQ[PrimePi[p]]]];
Select[Range[0,1000],aQ]

a(n) = A324702(n) + 1.

A306719 Lexicographically earliest sequence containing 2 and all positive integers n such that the prime indices of n - 1 already belong to the sequence.

Original entry on oeis.org

2, 4, 8, 10, 20, 22, 28, 30, 50, 58, 64, 72, 80, 82, 88, 108, 114, 134, 148, 172, 190, 204, 214, 230, 238, 244, 262, 272, 312, 322, 340, 344, 360, 362, 400, 410, 422, 442, 458, 498, 514, 552, 554, 568, 594, 610, 620, 640, 688, 712, 730, 750, 758, 784, 792, 814

Offset: 1

Gus Wiseman, Mar 11 2019

nonn

A self-describing sequence, similar to A304360.

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.

Prime indices of A324699.
Cf. A000002, A000720, A001222, A001462, A007097, A055396, A061395, A079000, A079254, A109298, A112798, A276625, A277098, A304360.
Cf. A324694, A324695, A324696, A324697, A324698, A324700, A324701, A324702, A324703, A324704, A324705.

aQ[n_]:=Switch[n,0,False,2,True,,And@@Cases[FactorInteger[n-1],{p,k_}:>aQ[PrimePi[p]]]];
Select[Range[0,100],aQ]

a(n) = A324699(n) + 1.

cp's OEIS Frontend

A324703 Lexicographically earliest sequence containing 3 and all positive integers n such that the prime indices of n - 1 already belong to the sequence.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula