OFFSET
1,3
COMMENTS
From Jianing Song, Dec 26 2022: (Start)
For k > 0, write k = s * 10^t, 1 <= s < 10, then k is a term if and only if s is in [1, 2^(1/3)) U (30^(2/3), 10).
Except for 0, terms of A144582 that start with 1 or 9. (End)
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
PROG
(Haskell)
a256523 n = a256523_list !! (n-1)
a256523_list = [x | x <- [0..], let i = a000030 x,
a000030 (x ^ 2) == i, a000030 (x ^ 3) == i]
(PARI) initial(n)=digits(n)[1]
is(n)=if(n==0, return(1)); my(k=initial(n)); initial(n^2)==k && initial(n^3)==k \\ Charles R Greathouse IV, May 13 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 01 2015
STATUS
approved