OFFSET
0,1
COMMENTS
Sequence is infinite.
EXAMPLE
135 belongs to this sequence as 1*3*5 + 1 = 16 is a square.
MATHEMATICA
pdsQ[n_]:=FreeQ[IntegerDigits[n], 0]&&IntegerQ[ Sqrt[ 1+Times@@ IntegerDigits[ n]]]; Select[Range[300], pdsQ] (* Harvey P. Dale, Jul 13 2021 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Apr 04 2003
EXTENSIONS
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 06 2003
Definition (Name) clarified by Harvey P. Dale, Jul 13 2021
STATUS
approved