login
A081989
Product of digits + 1 is a square greater than 1.
1
3, 8, 13, 18, 24, 31, 35, 38, 42, 46, 53, 57, 64, 68, 75, 79, 81, 83, 86, 97, 113, 118, 124, 131, 135, 138, 142, 146, 153, 157, 164, 168, 175, 179, 181, 183, 186, 197, 214, 222, 226, 234, 238, 241, 243, 246, 258, 262, 264, 283, 285
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
Cf. A081990.
Sequence in context: A105502 A105702 A184739 * A264780 A208276 A242487
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