OFFSET
1,2
COMMENTS
Invented by the HR concept formation program.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
S. Colton, Refactorable Numbers - A Machine Invention, J. Integer Sequences, Vol. 2, 1999, #2.
MATHEMATICA
Flatten[Table[FromDigits/@Tuples[{1, 4, 9}, n], {n, 4}]] (* Harvey P. Dale, May 18 2015 *)
PROG
(PARI) isok(n) = {digs = digits(n); for (i=1, #digs, if (! digs[i] || ! issquare(digs[i]), return (0)); ); return (1); } \\ Michel Marcus, Aug 31 2013
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Simon Colton (simonco(AT)cs.york.ac.uk)
EXTENSIONS
More terms from Sam Alexander (pink2001x(AT)hotmail.com).
STATUS
approved