OFFSET
1,2
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.
A sequence is aperiodic if its cyclic rotations are all different.
EXAMPLE
The sequence of terms together with their differences of prime indices begins:
1: ()
2: ()
3: ()
4: (0)
5: ()
6: (1)
7: ()
9: (0)
10: (2)
11: ()
12: (0,1)
13: ()
14: (3)
15: (1)
17: ()
18: (1,0)
19: ()
20: (0,2)
21: (2)
22: (4)
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
aperQ[q_]:=Array[RotateRight[q, #1]&, Length[q], 1, UnsameQ];
Select[Range[100], aperQ[Differences[primeMS[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 09 2019
STATUS
approved