OFFSET
1,2
COMMENTS
No term ending in zero is allowed.
EXAMPLE
1 (cube), 16(square): common neighbor digits = 1,
16(square), 64(cube): common neighbor digits = 6,
64(cube), 441(square): common neighbor digits = 4, etc.
MAPLE
A168091 := proc(n) if n = 1 then 1; elif n mod 2 = 0 then pdig := op(1, convert( procname(n-1), base, 10)) ; for b from 1+floor(sqrt(procname(n-1))) do a := b^2 ; adg := convert(a, base, 10) ; if op(-1, adg) = pdig and op(1, adg) <> 0 then return a ; end if; end do ; else pdig := op(1, convert( procname(n-1), base, 10)) ; for b from 1+floor(root[3](procname(n-1))) do a := b^3 ; adg := convert(a, base, 10) ; if op(-1, adg) = pdig and op(1, adg) <> 0 then return a ; end if; end do ; end if; end proc: for n from 1 do printf("%d, \n", A168091(n)) ; end ; # R. J. Mathar, Jan 25 2010
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Nov 18 2009
EXTENSIONS
Corrected from a(10) on by R. J. Mathar, Jan 25 2010
More terms from Jon E. Schoenfield, Jul 17 2010
STATUS
approved