RosettaCodeData/Task/Vampire-number/Mathematica/vampire-number-2.math
2023-07-01 13:44:08 -04:00

2 lines
128 B
Text

Reap[Scan[VampireQ,Range[126027]]][[2,1]]//Grid
Reap[VampireQ[#]] & /@ {16758243290880, 24959017348650, 14593825548650} // Grid