|
| |
|
|
A102140
|
|
Iccanobirt prime indices (10 of 15): Indices of prime numbers in A102120.
|
|
1
|
|
|
|
4, 6, 7, 11, 12, 20, 25, 45, 113, 193, 1214, 1272, 2435, 4007, 12258, 12771, 14166, 27368, 29184
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
No more terms through 5000.
a(20) > 50000. - Robert Price, Nov 10 2018
|
|
|
LINKS
|
Table of n, a(n) for n=1..19.
|
|
|
FORMULA
|
A102120(a(n)) = A102160(n).
|
|
|
MATHEMATICA
|
b[0] = b[1] = 0; b[2] = 1; b[n_] := b[n] = IntegerReverse[b[n - 1] + IntegerReverse[b[n - 2]] + b[n - 3]];
Reap[Do[If[PrimeQ[b[n]], Print[n]; Sow[n]], {n, 5000}]][[2, 1]] (* Jean-François Alcover, Dec 15 2017 *)
|
|
|
CROSSREFS
|
Cf. A000040, A102120, A102131-A102145.
Sequence in context: A110605 A206775 A287157 * A047289 A345717 A022436
Adjacent sequences: A102137 A102138 A102139 * A102141 A102142 A102143
|
|
|
KEYWORD
|
nonn,more,base
|
|
|
AUTHOR
|
Jonathan Vos Post and Ray Chandler, Dec 31 2004
|
|
|
EXTENSIONS
|
a(15)-a(19) from Robert Price, Nov 10 2018
|
|
|
STATUS
|
approved
|
| |
|
|
