A179302 Indices of primes occurring in A034050.
0, 1, 2, 3, 4, 5, 10, 11, 12, 18, 19, 20, 29, 30, 31, 32, 36, 37, 39, 43, 55, 56, 61, 62, 65, 72, 77, 104, 142, 154, 169, 191, 197, 200, 229, 258, 267, 276, 375, 407, 408, 411, 412, 437, 440, 456, 539, 597, 607, 621, 629, 653, 660, 663, 724, 742, 743, 759, 760, 768
Offset: 0
Keywords
Links
- Dmitry Kamenetsky, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Flatten[Position[Sort[Flatten[Table[FromDigits/@Permutations[Join[{3},PadRight[{},n,1]]],{n,0,50}]]],?PrimeQ]]-1 (* _Harvey P. Dale, Jul 16 2012 *)