A034133 - OEIS

A034133

Decimal part of cube root of a(n) starts with 7: first term of runs.

5, 20, 51, 104, 186, 301, 457, 659, 913, 1226, 1602, 2049, 2572, 3177, 3870, 4658, 5546, 6540, 7646, 8870, 10219, 11698, 13313, 15070, 16975, 19035, 21254, 23640, 26199, 28935, 31856, 34966, 38273, 41782, 45500, 49431, 53583, 57961, 62571

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..39.

MATHEMATICA

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 *)

CROSSREFS

Cf. A034123.

Sequence in context: A134481 A358632 A062158 * A006504 A007045 A102227

Adjacent sequences: A034130 A034131 A034132 * A034134 A034135 A034136

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, Sep 15 1998

STATUS

approved