The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Mar 31 2012 20:47:12
%S 1,1,1,1,2,3,4,4,4,5,6,6,7,7,7,7,8,9,10,10,10,10,11,11,11,11,11,12,13,
%T 13,13,14,15,15,15,15,15,16,16,16,16,16,17,18,18,18,19,19,19,19,20,21,
%U 21,21,21,21,21,21,22,22,23,23,23,23,23,24,25,25,26,26,26,26,27,27,27
%N a[n] =PrimePi[PrimePi[n-2]] + a[n - a[n-2]]
%C A PrimePi reinversion based on Mallows A005229 as the pattern sequence.
%t mrid[n_Integer?Positive] := mrid[n] =PrimePi[PrimePi[n-2]] + mrid[n - mrid[n-2]] mrid[1] = mrid[2] = 1 digits=256 a=Table[mrid[n], {n, 1, digits}]
%Y Cf. A005229.
%K nonn
%O 1,5
%A _Roger L. Bagula_, Oct 11 2003