%I #9 Jul 17 2021 14:06:33
%S 5,20,51,104,186,301,457,659,913,1226,1602,2049,2572,3177,3870,4658,
%T 5546,6540,7646,8870,10219,11698,13313,15070,16975,19035,21254,23640,
%U 26199,28935,31856,34966,38273,41782,45500,49431,53583,57961,62571
%N Decimal part of cube root of a(n) starts with 7: first term of runs.
%t Join[{5},(If[#[[2]]-#[[1]]==1,Nothing,#]&/@Partition[Select[Range[ 63000],NumberDigit[ Surd[#,3],-1]==7&],2,1])[[All,2]]] (* Requires Mathematica version 12 or later *) (* _Harvey P. Dale_, Jul 17 2021 *)
%Y Cf. A034123.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
|