OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
David A. Corneth, PARI program
PROG
(PARI) nxt(va, d) = {my(k=1); while ((digits(k^2)[1]!=d) || !(k%10) || #select(x->(x==k^2), va), k++); k^2; }
lista(nn) = {my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = nxt(va, Vecrev(digits(va[n-1]))[1]); ); va; } \\ Michel Marcus, Sep 04 2020
(PARI) \\ See Corneth link. David A. Corneth, Sep 05 2020
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Zak Seidov, Feb 01 2009
EXTENSIONS
Name edited by Michel Marcus, Sep 04 2020
STATUS
approved