A062371 Numbers the product of whose nonzero digits is a perfect square.

1, 4, 9, 10, 11, 14, 19, 22, 28, 33, 40, 41, 44, 49, 55, 66, 77, 82, 88, 90, 91, 94, 99, 100, 101, 104, 109, 110, 111, 114, 119, 122, 128, 133, 140, 141, 144, 149, 155, 166, 177, 182, 188, 190, 191, 194, 199, 202, 208, 212, 218, 220, 221, 224, 229, 236, 242, 248

Offset

0,2

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

Example

128 is a member as 1*2*8 = 16 is a square. 140 is also a member as 1*4 = 4.

Prog

(PARI) ProdNzD(x)= { p=1; while (x>9, d=x-10*(x\10); if (d, p*=d); x\=10); return(p*x) } { n=-1; for (m=1, 10^9, if (issquare(ProdNzD(m)), write("b062371.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 06 2009

Crossrefs

Sequence in context: A166498 A266297 A174800 * A046030 A125726 A352323

Adjacent sequences: A062368 A062369 A062370 * A062372 A062373 A062374

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jun 26 2001

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jul 06 2001

Status

approved