OFFSET
1,2
COMMENTS
The square roots are: 1, 1, 19, 8, 341, 98, 494, 2058, 1091069, 1706142, 2101494 - Robert G. Wilson v, Oct 14 2007
a(17) > 10^20. - Donovan Johnson, Mar 14 2011
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..87 (terms < 10^63)
EXAMPLE
136 is a triangular number, 361 is a square number - hence 136 belongs to this sequence.
MATHEMATICA
Select[Table[n(n + 1)/2, {n, 1000000}], IntegerQ[Sqrt[ FromDigits[ Append[Drop[IntegerDigits[ # ], 1], First[IntegerDigits[ # ]]]]]] &]
lst = {}; Do[ t = n (n + 1)/2; id = IntegerDigits@ t; If[MemberQ[{1, 4, 5, 6, 9}, id[[1]]] && IntegerQ@ Sqrt@ FromDigits@ RotateLeft@ id, AppendTo[lst, t]; Print@t], {n, 44000000}]; lst - Robert G. Wilson v, Oct 14 2007
Select[Accumulate[Range[10^6]], IntegerQ[Sqrt[FromDigits[RotateLeft[IntegerDigits[#]]]]]&] (* The program generates the first 8 terms of the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Dec 29 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Tanya Khovanova, Oct 09 2007
EXTENSIONS
More terms from Robert G. Wilson v, Oct 14 2007
a(12) from Donovan Johnson, May 13 2010
a(13)-a(16) from Donovan Johnson, Mar 14 2011
a(17)-a(18) from Giovanni Resta, May 11 2016
STATUS
approved