OFFSET
1,3
LINKS
Jon E. Schoenfield, Table of n, a(n) for n = 1..162 (terms < 10^18)
FORMULA
EXAMPLE
153 is in the sequence because (1) it is a triangular number and (2) its reversal 351 is also a triangular number.
MAPLE
read("transforms");
isA000217 := proc(n) issqr(1+8*n) ; end proc:
isA061455 := proc(n) isA000217(n) and isA000217(digrev(n)) ; end proc:
for n from 0 to 60000 do T := A000217(n) ; if isA061455(T) then printf("%d, ", T) ; end if; end do: # R. J. Mathar, Dec 13 2010
MATHEMATICA
TriangularNumberQ[k_] := If[IntegerQ[1/2 (Sqrt[1 + 8 k] - 1)], True, False]; Select[Range[0, 5676765], TriangularNumberQ[#] && TriangularNumberQ[FromDigits[Reverse[IntegerDigits[#]]]] &] (* Ant King, Dec 13 2010 *)
PROG
(PARI) isok(n) = ispolygonal(n, 3) && ispolygonal(fromdigits(Vecrev(digits(n))), 3); \\ Michel Marcus, Apr 14 2019
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 03 2001
EXTENSIONS
More terms from Erich Friedman, May 08 2001
Edited by N. J. A. Sloane, Aug 13 2008 at the suggestion of R. J. Mathar
STATUS
approved