OFFSET
1,1
EXAMPLE
a(4) = 17355371: deleting alternate digits starting from the LSD gives 1357. Deleting the other digits gives 7531.
MATHEMATICA
rif[n_]:=Module[{idn=Flatten[IntegerDigits/@Range[1, 2n-1, 2]]}, FromDigits[ Riffle[idn, Reverse[idn]]]]; Array[rif, 15] (* Harvey P. Dale, Apr 11 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 25 2002
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003
Corrected and extended by Harvey P. Dale, Apr 11 2012
STATUS
approved