A068947 Square roots of A068809.

1, 2, 3, 7, 13, 17, 43, 63, 83, 167, 264, 313, 707, 836, 1667, 2236, 3114, 4472, 6833, 8167, 8937, 16667, 21886, 29614, 41833, 74833, 89437, 94863, 134164, 191833, 298327, 545793, 547613, 947617, 987917, 1643167, 3143167, 3162083, 5477133

Offset: 1

Author

Francois Jooste (phukraut(AT)hotmail.com), Mar 15 2002

Keywords

• nonn
• base

Examples

			13^2 = 169 = A068809(5), so a(5)=13.
		

Links

• Giovanni Resta, Table of n, a(n) for n = 1..80

Crossrefs

Cf. A068809, A068948, A068949, A068950, A068952, A069324, A040047.

Programs

Maple

A007953 := proc(n) option remember: return add(d, d=convert(n, base, 10)): end: A068947 := proc(n) option remember: local k,p: if(n=1)then return 1: fi: k:=procname(n-1): p:=A007953(k^2): do k:=k+1: if(A007953(k^2)>p)then return k: fi: od: end: seq(A068947(n),n=1..20); # Nathaniel Johnston, May 04 2011