%I A087884
%S A087884 3,4,13,15,25,31,43,63,70,92,106,110,130,154,183,185,215,233,237,267,
%T A087884 281,315,357,377,383,401,405,425,504,526,568,574,622,624,658,688,714,
%U A087884 748,779,793,859,863,883,887,973,1039,1057,1067,1093,1115,1123,1199
%N A087884 a(n) = PrimePi[PrimePi[n-1]] + Prime[Abs[n - Prime[n-1]]]
%C A087884 A prime based reinversion sequence based on the A004001 pattern.
%t A087884 prid[n_Integer?Positive] := prid[n] =PrimePi[PrimePi[n-1]] + Prime[Abs[n 
               - Prime[n-1]]] prid[1] = prid[2] = 1 digits=256 a=Table[prid[n], 
               {n, 4, digits+4}]
%Y A087884 Cf. A004001.
%Y A087884 Sequence in context: A109474 A053910 A105074 this_sequence A057570 A024853 
               A023857
%Y A087884 Adjacent sequences: A087881 A087882 A087883 this_sequence A087885 A087886 
               A087887
%K A087884 nonn
%O A087884 4,1
%A A087884 Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 12 2003