OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
ds[n_] := NestWhileList[FromDigits[Rest[IntegerDigits[#]]] &, n, # > 9 &]; Select[Range[4, 58]^2, Or @@ IntegerQ /@ Sqrt[Rest[ds[#]]] &] (* Jayanta Basu, Jul 10 2013 *)
PROG
(PARI) a065807(m) = local(a, b, d, j, k, n); for(k=1, m, a=length(Str(n))-1; b=1; j=1; n=k^2; while(b, d=divrem(n, 10^j); if(d[1]>0&&issquare(d[2]), b=0; print1(n, ", "), if(j<a, j++, b=0))))
a065807(60)
(PARI) isokend(n) = my(p=10); for(k=1, #Str(n)-1, if (issquare(n % p), return (1)); p*=10);
isok(n) = issquare(n) && isokend(n); \\ Michel Marcus, Mar 17 2020
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Klaus Brockhaus, Nov 22 2001
EXTENSIONS
Changed offset from 0 to 1 by Vincenzo Librandi, Sep 24 2013
STATUS
approved