OFFSET
0,2
COMMENTS
EXAMPLE
a(17) = 17*17 = 244:
...17
...17
-----
...84 (7*7 = 7+7 mod 10 = 4, 7*1 = 7+1 mod 10 = 8)
..28.
-----
..244
(The rule for "adding" the columns is to multiply mod 10: 8+8 = 8 * 8 mod 10 = 4. Blanks are ignored)
PROG
(PARI) A169918(n)={u=vector(#n=digits(n), i, 1); n=apply(d->n+d*u, n)%10; sum(i=0, 2*#n-2, prod(j=max(1, #n-i), min(2*#n-1-i, #n), n[2*#n-i-j][j])%10*10^i)} \\ M. F. Hasler, Mar 26 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Thanks to Rick L. Shepherd for pointing out a typo in the example. - N. J. A. Sloane, Nov 08 2014
STATUS
approved