A324700 Lexicographically earliest sequence containing 0 and all positive integers > 1 whose prime indices minus 1 already belong to the sequence.
0, 2, 4, 5, 8, 10, 11, 13, 16, 20, 22, 23, 25, 26, 31, 32, 37, 40, 43, 44, 46, 50, 52, 55, 59, 62, 64, 65, 73, 74, 80, 83, 86, 88, 89, 92, 100, 101, 103, 104, 110, 115, 118, 121, 124, 125, 128, 130, 131, 137, 143, 146, 148, 155, 160, 163, 166, 169, 172, 176
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 0 2: {1} 4: {1,1} 5: {3} 8: {1,1,1} 10: {1,3} 11: {5} 13: {6} 16: {1,1,1,1} 20: {1,1,3} 22: {1,5} 23: {9} 25: {3,3} 26: {1,6} 31: {11} 32: {1,1,1,1,1} 37: {12} 40: {1,1,1,3} 43: {14} 44: {1,1,5}
Crossrefs
Programs
-
Mathematica
aQ[n_]:=Switch[n,0,True,1,False,,And@@Cases[FactorInteger[n],{p,k_}:>aQ[PrimePi[p]-1]]]; Select[Range[0,100],aQ]
Formula
a(n) = A324701(n) - 1.
Comments